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A theoretical method is presented here for determining the optimum 
camber shape and twist distribution for the minimum induced drag in the 
wing-alone case without prescribing the span loading shape. The same 
method was applied to find the corresponding minimum induced drag 
configuration with the upper-surface-blowing jet. Lan's Quasi-Vortex- 
Lattice Method and his wing-jet interaction theory has been used. 
Comparison of the predicted results with another theoretical method 
shows good agreement for configurations without the blowing jet. More 
applicable experimental data with blowing jets are needed to establish 
the accuracy of the theory. 


1 



1. LIST OF SYMBOLS 






matrix |N,„,| after transformation 
Fourier series coefficient 

the element of the transformation matrix [a] 



aspect ratio 

matrix after transformation 

span 

the element of the transformation matrix [b ] 


c 

c 


c 

a 



C 

m 


C 

m 

AC 

P 

C 

u 



8n 

h^.hz 

w 


chord length 

reference chord length 

average chord length 

sectional Induced drag coefficient 

sectional lift coefficient 

sectional pitching moment coefficient 

total lift coefficient 

lift constraint 

total pitching moment coefficient 

pitching moment constraint 

pressure coefficient 

jet-momentum coefficient 

local induced drag 

unit vector tangent to jet path 

step direction vector defined by Eq. (42) 

the length of each section in the spanwise direction 

a scalar defined by Eq. (26. a) 

the length of each section in the chordwise direction 
interpolation matrix 



p-l- 


local lift 


£ 

M 

,M2 ,M3 


n,s 

[••] 



N 

c 



N. 




q 

[s] 

T 



->• 

V . 

je 


xjy,z 



Mach number 

the numbers of spanwise strips plus one in each section 
unit vector normal to jet surface 
jet axis system 

normal velocity influence-coefficient matrix 

numbers of vortices in each section along the chordwise direction 


= Nj + N2 

total number of jet vortices in the outer flow 


total number of wing vortices over the semi-span 
d3mamic pressure 

tangential velocity influence-coefficient matrix 
wing area 
- 

jet thickness 
velocity 

unperturbed velocity vector 
perturbed velocity vector 


jet-entrained-f low velocity vector 


wing-fixed rectangular coordinates with positive X-axis along 
axis of symmetry pointing downstream, positive Y-axis pointing 
to right, and positive Z-axis pointing upward 

coordinate of camber surface 

angle of attack 


local angle of attack 


nondimensional vortex density 
3z 

= — (see Fig.l) 


5 (x,y) 


3x 
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5. 

J 

Aa 

6 

A 

\ 

u 

y' 

p 


jet-deflection angle 
step length defined by Eq.(41) 
angular coordinate (see Eq.(22)). 
sweep angle 
taper ratio 

Lagrange multipliers (see Eq.(31)) 


' Vo/Vj 

= V ‘e/V.^e 
o j 

density 

angular coordinate (see Eq.(29)) 
nondimensional perturbation velocity potential 


Subscripts 

a 

c 

j 

22 

JJ 

JW 

o 

oj 

w 

V 

wa 

wj 

wo 

Wo 


additional 

control point (see Eq.(l)) 
jet flow 

jet flow perturbation due to jet vortices 
jet control points being influenced by jet vortices 
jet control points being influenced by wing vortices 
outer flow 

external flow perturbation due to jet vortices 
wing 

vortex point (see Eq.(3)) 
additional wing vortices 
perturbation due to wing in jet flow 
perturbation due to wing in outer flow 
wing alone vortices 


00 


free stream 


4 



2. INTRODUCTION 

It Is well known that the induced drag of the conventional wing is 
minimized if the span loading is elliptical. In the early of this 
century, Munk (Ref. 1) developed a theory for minimizing the induced 
drag of arbitrary lifting configurations. According to the Munk theory, 
all loadings are assumed light so that the velocity perturbations are 
small and the wake in the Trefftz plane may be assumed undistorted. 

Later, Mangier (Ref. 2) studied the relationship of the circulation 
distribution over the wing and of the lift to the height of end plate. 

In his theory, an infinitely thin flat plate was assumed. The theore- 
tical elliptical loading was obtained when the end plate has zero 
height. For the same problem. Cone (Ref. 3) experimentally determined 
the optimum spatial distribution of vorticity, corresponding to the 
minimum induced drag for a specified lift and a given configuration. 

He used the analogy of a velocity potential and an electrical potential 
in a medium of uniform conductivity. Lundry (Ref. 4) developed a pro- 
cedure for accurate computation of the minimum induced drag of nonplanar 
wings with pylon-like panels. This method was restricted to a two- 
dimensional Trefftz plane so that the Schwartz-Christoffel transformation 
can be used. Stevens (Ref. 5) investigated the suitability of planar 
lifting surface theory to high lift wing design. In his theory the 
optimal camber surface of the wing is obtained by constraining the span- 
wise lift distribution to be elliptic. Loth (Ref. 6) determined the 
optimal span loading on bent lifting lines in the Trefftz plane. Lamar 
(Ref. 7) used the Vortex-Lattice Method to determine the optimal span 
loading for minimum drag for interacting surfaces, and to solve the mean 
camber surface of the wing which will provide the required loading. 
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In the above references, it was seen that different methods were 
used to find the minimum induced drag configuration for the conventional 
wings. They include the lifting line theory, the vortex lattice method, 
the Kernel function method (Ref. 8), etc; However, one common feature 
of these methods is that the span loading shape must be prescribed in 
advance. For the present investigation of configurations with jet 
interaction, this is not possible. 

The main purposes of this investigation are therefore as follows: 
(1) to develop a new method to determine the optimum camber surface 
and twist distribution for the minimum induced drag in the wing-alone 
case without prescribing the span loading shape; (2) and to use the 
same method to find the corresponding minimum induced drag configuration 
with the upper-surface-blowing jet. In both cases, the optimum 
configurations are computed under, constraints of specified lift and 
pitching moment. Lan's method (Ref. 9) and his formulation for the 
upper-surface-blowing problem will be used in the investigation. 



3. THEORETICAL DEVELOPlffiNT 

In the present analysis, the thin wing in the linear inviscid subsonic 
compressible flow will be assumed. Therefore, the assumption of small 
angle of attack, flap deflection, thickness ratio, and camber is applica- 
ble. The expressions of induced drag, lift and pitching moment coefficients 
can therefore be simplified. The near-field method is used here to pre- 
dict the aerodynamic characteristics of wings under jet-off and jet-on 
conditions. In section 3.1 the boundary conditions in wing-alone and 
jet-on cases will be described. In section 3.2 the simplified formula 
of the sectional aerodynamic coefficients will be derived. In section 3.3 
the overall aerodynamic characteristics are determined by spanwise inte- 
gration of the sectional characteristics. In section 3.4 a method is pre- 
sented to find the optimum wing-alone and jet-on vortex strengths. In 
section 3.5 the camber ordinates and local angle of attack are determined 
by integrating the camber slope in the chordwise direction. The detailed 
procedures of iteration are summarized in section 3.6. 

3.i Boundary Conditions and Interpolation liatrix 

In the wing-jet interaction theory described in Refs. 10 and 11, the 
solution is obtained by solving the wing-alone case first and then the 
additional effect due to jet interaction. To set up all the 
fluence coefficient matrices, the Quasi-Vortex-Lattice method (Ref. 9) is 
used in the computation. In the wing-alone case, there is only one boun- 
dary condition - wing flow tangency condition, to be satisfied. It can 
be written as ; 
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where 


{ 


3z, 


3x 


- a 


are the camber slopes at the control points. Since 


the camber slopes at the vortex points are needed in the computation of 
the induced drag coefficient, it is necessary' to interpolate the values 
at the control points. The trigonometric interpolation formula derived 
in Ref. 12 is suitable for this purpose. 


3z 


3x, 


- a ) = 


N 

I 

k=l 


3z 




- a )( 


COS 0 , - COS 0 , 

k i 


( 2 ) 


where the indices k and i represent the corresponding vortex and control 
points respectively. In matrix form^ Eq, (2) becomes : 


3z 


1 r 1 

r 92 

= I 

c 

— :: • a 

1 1 

3x 

j c L J 
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3x 


I is the interpolation matrix. Thus, 


3z 


c. 


3x 


- a 


1 r 1-1 

r 3z I 

' — T 1 < 

' ^ A 

I 

1 9x 1 

Jv L J 

1 J 
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3z 


3x 


" a 


■ [ ' ] [ 


w 

V J 


(3) 


(4) 


(5) 


In the jet-on case, there are three boundary conditions to be. satis- 


fied: 


1) Pressure continuity on the jet surface 
- T(u 


1 




i ' S 


(o) 


•'oji - 




8 





Equations (6), (7) and (8) have been combined into an augmented matrix 

equation to determine y^. , y .and y , Once Y is obtained, the 

jj oj 'wa wa ’ 

total wing vortex strength is then. 




(9) 


where y is the wing-alone vortex strength and y is the additional 
** wa 

wing vortex strength. 


3.2 Sectional Aerodynamic Coefficients 

From the geometry of the mean camber line (Fig. 1), the relation of 
the local camber slope, twist, lift and induced drag have the following 
relations with the wing vortex strength. Since, 
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( 10 ) 



tan 6(x,y) = 6(x,y) 


the local lift and induced drag components due to the vortex strength are 
seen to be 

£(x) = Y„(x) cos( a - 6(x,y)) (11) 

w 


d . (x) = Y„(x) sin( a - 6(x,y)) (12) 

1 w 

where Y^,(x) Is the vortex strength and is proportional to the pressure 
loading acting normal to the camber surface. 





The effect of the leading-edge suction on the lift and pitching moment 
is assumed small enough to be ignored. It is assumed that the wing 
camber will be designed in such a way that the leading-edge suction is 
zero. 


To find the sectional characteristics, it is assumed that the wing 
vortices are situated along the camber surface. Since the resulting 
pressure force is normal to the camber surface, the sectional character- 
istics can be determined by integrating Eqs. (11) and (12) across the 
local chord. Thus, 


'd,i 


— r P V ( V 
C 00 ( 

ri 

osa [ 

~Jo 


e) d . (x) dx 
0 i 


(x)sin(a-6 (x,y))dx 


• 5;. 


) Y^(x)sin(a-6 (x,y))dx 


(13) 


where coso = 1 • The integration in Eq. (13) will first be transformed to 
an angular coordinate 9 ( O<0<tt ) and then reduced to a finite sum by 
using the conventional trapezoidal rule. Then, Eq. (13) becomes 



(14) 
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Similarly, 


'9 n n \ P V *e)i(x)dx 

X. q c J 0 o o 


jrj; 

■-j; 

= + C ) Y„(x)cos(a-6(x,y))dx 

Jo Jxj 


(x) cos (a-6 (x,y) )dx 


N, 

x,n 1 


2 II A 

~ ^ "mT r Y cos (a-6 (x.y)) sine + 
1 , — , k 


k=l 


(I-x^)tt ^ 


2N 


y~ cos(a-6(x,y))sin0j^) 


2 ^ — "k 

^ k=l 


(15) 


and j 


c = 
m 


q cc v/ o 


p V (V •e)£(x)xdx 
0 0 o 


cc 

2 

cc 


( C ^ + C ) Y^(x)cos(a-6(x,y))xdx 

J O J Xj^ 

N, 

Xj^TI 1 

( ^ Y cos(a-6(x,y))Xj^ sin0j^ + 


N, 


(l-X^TT 2 

^ Y^ cos(a-6(x,y)) x^ ) 


2N 


(16) 
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From thin wing theory, (a - 6(x,y)) is assumed to be sufficiently small, 
so that, 

cos (a-6(x,y)) =1 (17) 

sin (a-6(x,y)) = (a - 5(x,y)) 

3z 

dz 

- - ( - a ) ( 18 ) 


Therefore, from Eqs. (17) and (18), the Eqs- (14), (15), and (16) may 
be recast into the following simple expressions. 



(19) 

( 20 ) 


( 21 ) 


where hj^ = and h 2 = 1 -Xj^ • > and and N 2 are the numbers of vortex 

points in each section along the chordwise direction. The control and 
vortex points are defined as follows, ( see Fig. 2a) I 3 




Figure 2a. Location of Control and Vortex Points in the chordwise direction 



\ 

+ - 2 — (l-cos6^) , L=l,2 


( 22 ) 


(2k-l)TT 


®k “ 2N, 


, k=l,2,*»*,N^ 


(23) 


and. 


= Xj^_j + -^ — (l-cos0^) , L=l,2 


(24) 


0 = ^ 
i N, 


, i= 


(25) 


Note that x =0 in Eqs. (22) and (24). 
o 

3.3 Overall Aerodynamic Characteristics 

The total induced drag, lift and pitching moment coefficients of 
the wing are determined by spanwise integration of the sectional charac- 
teristics. Again, the integration is first transformed to an angular 
coordinate ,j) (0^(|»£Tr) » then reduced to finite sums by the 

conventional trapezoidal rule. Therefore, the total induced drag co- 
efficient has the following expression, 
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where, 


’n M 

P L 


i~ < ^ «n < 95^ ■ “>n > 

w ‘ — , n 

n=l 


f 

— ^- sin8 sin<^. 


(26) 


(26. a) 


and it is understood that the indices p, i and L will take proper 
values at the appropriate spanwise sections and chordwise locations, 
respectively. 


16 



In Eq. (26), is total number of wing vortices over the semi-span, 
and the width of each spanwise section is : 


^1 = ^1 

f2 = y2-yi 

f3 = b/2 


(26.b) 
(26. c) 
(26. d) 


Similarly, the lift and pitching moment coefficients have the following 
expressions, 

8„T„ ) (27) 

n=l " 


C 

m 



g X Y 
®n n w 


(28) 


where the index n indicates the corresponding vortex point over the wing. 

Each spanwise section is divided into vortex strips by the semi-circle 

method. The vortex strips in each interval are obtained through the 

following relation: 

f 

y^ = yp-i “ 2 ^ » p “ 1.2,3 (29.a) 

= (2j - 1 ) 77 / (2Mp) , j = (29. b) 

and y-control points are given by: 

f 

y^ = y^_^ “2^ ^i^ » P = 1.2,3 (30. a) 

<Ji. = iTr/M , i = !,•••, M -1 (30. b) 

1 p p 

Note that y^= 0 in Eqs. (29. a) and (30. a) . M^, M 2 , and are the 

numbers of spanwise strips plus one in each section, (see Fig. 2b) 


3.4 Optimization Equations 

From section 3.3, the expressions of induced drag, lift and pitching 
moment coefficients have been derived. Next, the method to find the opti- 
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Figure 2b. Scheme of Spanwlse Vortex Strip Distribution 




mum solution of wing-alone loading such that the induced drag is minimized 
with the lift and pitching moment constraints will be described. To start 
the iteration, the wing vortex strengths are at first assumed zero. Then 
as shown in Appendix A, based on the Method of Gradients (ref. 13), the 
increment of the wing-alone vortex strength can be determined from the 
following equations , 


Ay 


w. 


3 

^Y 


Aa + X 


w. 


3C_ 
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Aa * - 


w. 


3C 


DJL 


Ao , 


w. 


(31) 


\ 3C 

1 . ^ N 
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k=l 
N 


t 3C 

~ Ay = c - c 
Z_ 3y„ 'w,, m m 


(n) 


(n) 


k=l 


' w, k 
k 


k=l,***,N 


(32) 


(33) 


are 


where Ct and Cm are the specified constraints, c and q 

L m 

the computed values in the n-th iteration. Therefore, the new vortex 


density will be given by : 


(n) (n-l) 

w, 'w. 


Ay 


(n) 


w. 


(34) 


Tlie optimum solution is obtained as c beccjmes' minimum, or the camber 

D,i 

shapes do not change further by any significant amount. 

In the wing-alone case, the step size Aa can be computed in each 

iteration by using one-dimensional optimization technique. Differentiating 

Eqs. (26), (27), and (28) with respect to v gives the relations, 

' w 
k 
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TT 



, k=l. 
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N. 


(35) 
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and. 
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m IT 




w, w 




(36) 


From Eq. (5), the camber slope at vortex point k can be expressed as 


dz 


N. 


3x 


n=l 
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(37) 
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where is the element of matrix [a]. I t follows that Eq. (26) becomes 
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(38) 


Therefore , 
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t 
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w n=l “ ^ 
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t, 

i=l 


= - i- ^ X ^ ^ V §n ^nk ^ ) 

w ^ — , n 


n=l 


(39) 


The objective is to find the best step size such that C„ . will decrease 

U > 1 

in the steepest descent direction. It can be shown by the chain rule 
that : 


3C 


i (La) 


N. 
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dy 


w. 


■) ( 


d(Ao) 


(40) 
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Since the new vortex strength and the old vortex strength may be assumed 
to be • 




(41) 


where the step direction vector Ej^ can be obtained from Eq. (31) to be : 




3C 


3y, 


^ + Xi 


w. 


3C, 


3C 


3T 


+ X'. 
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3y, 


(42) 


w. 


k=l,*** ,N. 


Substituting Eqs. (39), (41) and (42) into (40) gives 


N. N 


C_ t t 

^ §“ r < Z ' ®k ^cn Sn V > < ''w + \ ^ 

w f — , ^ — , n 


k=l n=l 


(43) 


3C,, . 
D,i 


The optimum step size Ac can be obtained by setting zero 


(44) 


It follows that 

^ < r A A. V > V V 

ia . - ^ 

"t “t 

^ \n * *n V > ^ 

k*l n=l 

In the jet-on case, the total wing vortex strength is equal to the 
sum of the wing-alone vortex strength y and the additional wing vortex 

Wo 

strength • Therefore, from Eqs. (9), (26), (27) and (28) , 


2 Nt 


S,i “ ■ S ^ \ ^ 


3z 


3x 


- a ), ( Y + Y ), 
k 'Wo wa k 


(45) 


k=l 


21 



2 \ 




= T Sk ^ + ^wa 

w f — , 


( 46 ) 
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i~ y % < ■'w. ^wa ’k \ 

^ k=l 


(47) 


In the optimization iteration, y„ is regarded as the independent varia- 

ble. In the optimization Eqs. (31) - (33), the derivatives — , 

^"m . 3C, 




and D .i are needed. They can be obtained by differentiating 

3y. 


Eqs. (45) - (47y“with respect to Y . Hence, 
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From Eqs. (1) and (8), and the interpolation matrix [l| > ihe camber slope 
at the vortex point k is given by : 
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where is the total number of jet' vortices in the outer flow, and 


and b^ are the elements of the transformation matrices^A j 
and| B jrespectively . From Eqs. (4) and (8), and |^b| are defined as 
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(50. a) 


(o) 


(50. b) 
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Differentiate Eq. (50) with respect to y gives: 

w^i 

9- , . 

3y _ ^ ax “ “ 
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m=l "“i 

With Eqs. (50) and (51), Eq. (45) gives: 
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(52) 


Eqs. (48), (49), (51) and- (52) will be evaluated in each iteration, 

/> 

because the needed derivatives depend on the values of Y , Y and 

W Q T.» »a 


wa 


Y . in the preceeding step 
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The derivatives 


3y 


oj 


can be obtained by differentiating 


ay ’ ay 

Wo WO 

Eqs. (6), (7) and (8) with respect to y and solving the differentia- 


Wo 


ted simultaneous equations. 

From numerical experimentation, it was found that the one-dimen- 
sional optimization technique in. finding the best step size used previously 
for the wing alone case did not produce consistently converging solutions 
in the jet-on case. In fact, the rate of convergence depends very much 
on the jet strength, or on p . According to the author's experience, 
the following relation of step size and y may be used: 

23 



Aa = 3.0864 y - 0.39506 


(53) 


The above computed step size is assumed unchanged during iteration for the 
jet-on case. 

3.5 The Determination of Camber Ordinates 

Once the optimum solution of the wing vortices has been determined 
from section 3.4, the camber slope at vortex points over the wing may be 
found from Eq. (5). This section will describe the method used in find- 
ing the camber ordinates from the given camber slope. Let the wing cam- 
ber slope be developed into Fourier cosine series. Then in each spanwise 
vortex strip over the wing, the camber slope functions have the following 
expression. 
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and the Fourier coefficients are given by. 
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( 56 ) 


Nq 

■f- ^ COS0-D6, 

k=l 


where 9 - ( 2 k-l) ir . . . . « 

k 2N ’ ’ ’ c 
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(57) 


Once the Fourier coefficients are determined, the camber ordinates can be 
obtained by direct integration. For each vortex strip, Eq. (54) is '• 


3z 


ir~ - « ) = ^ + ^2 


+ a^ cos(N^-l) e (58) 


where N^is the total number of chordwise vortex elements. By integrating 
Eq. (58) with respect to x , the camber ordinates along each spanwise 
vortex strip over the wing can be obtained. Thus, 


z (x) = (a + 3 j^)x +C (a 2 Cos 8 + + a^ cos(N^-l)0)dx (59) 

^ y 0 ^c 


Since x = ( 1 - cos 6 ) / 2 


, Eq. (59^ becomes 
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Z^(e) = (a + aj^) (l-cos6)/2 +J^ (a 2 COse+ +3^^ cos(N^-l)9)s 

(60) 


in 6 d 0/2 


From the mathematics handbook ( Ref. 15 ), 
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N > 1 
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it follows that £q. (60) becomes • 

z (0) 

c 

where a and Cj are the local angle of attack and integration constant 

respectively. They are determined by ends condition. Since Z(.(0) = 
z^(Ti) = 0 , from the leading-edge end condition. 


= (a+aj^) (l-cos 0)/2 a 2 COs 20/8 - 
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From the trailing-edge end condition, 


z (tt) = (a+a, )- 
c i 


i vi < 


cos(l-n)Tr cos (l-t-n)TT^ 
1 -n 1 +n 


Hence, the local angle of attack is given by; 

N -1 
o 

1 , cos(l-n)ii-l cos(l4n)ii-l ^ 

“ = Vi < — — rrs — - n 

n =2 


(64) 


Finally, the camber ordinates along each spanwise vortex strip are deter- 
mined by. 
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cos20 - 


N -1 

^2 1 , 1 1 V 

8 4 2- ^n+1 '• 1-n 1+n 
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(65) 


3.6 Summary of Solution Procedures 

In the Jet-off case, the basic unknowns to be determined are the wing 
alone vortex strengths. The problem is solved by the iterative process 
described below ; 


1. Assume all the initial wing-alone vortex strengths are zero and 
the initial step size has some value, typically 50. 

2. By solving the optimization equations, i.e., Eqs. (31) - (33), 
the new wing-alone vortex strengths are determined. 

3. Calculate the camber slope at the vortex points from Eq. (5) 
and compute the aerodynamic characteristics. 

4. Check the convergence of the induced drag coefficient and adjust 
the computed step size if necessary. 

5. Compute the new step size by using one-dimensional optimization 
technique. 

6. Repeat steps 2 through 5 until a converged solution is obtained. 
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7* Calculate the camber ordinates, local angles of attack and the 
optimum loading. 

In the jet-on case, the value of additional wing vortex strengths 
depend on the value of wing-alone vortex strengths in each iteration. 
Therefore, the approach to find the optimum solution is described below; 

1. Invert the augmented matrix of the boundary conditions , i.e., 

Eqs. (6) - (8). 

2. Calculate the derivatives of the jet vortex strength in the 
outer flow and the additional wing vortex strength with respect 
to wing-alone vortex strength from the differentiated equations 
of Eq. (6), (7) and (8). 

3. Set up the transformation matrices from Eqs. (50. a) and (50. b). 

4. Compute the derivatives of the camber slopes at the vortex points 
with respect to the wing-alone vortex strength, i.e., Eq. (51). 

5. Assume the initial wing-alone vortex strengths equal to the 
optimum loading which were found in the jet-off case. 

6. By solving the optimization equations and varying the initial 
computed lift and pitching moment coefficients to the constrained 
values gradually, the new wing-alone vortex strengths can be ob- 
tained . 

7. Calculate the camber slopes at vortex points from Eq. (50). 

8. Use the new wing-alone vortex strengths to determine the right 
hand sides of Eqs. (6) - (8). 

9. Calculate the jet vortex strengths in the outer flow and the 
additional wing vortex strengths by the results of steps 1 and 8. 

10. Compute the total wing vortex strengths and the aerodynamic char- 
acteristics. 
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11. Once the computed lift and pitching moment coefficients achieve 
the constrained values, check the induced drag coefficient and 
adjust the assumed step size if necessary. Finally, calculate 
the camber ordinates, local angles of attack and the correspon- 
ding loading. 

12. Check the changes in camber ordinates in consecutive iterations. 

13. Assume a constant step size for each iteration, the step size 
being determined by the empirical formula of Eq.(53). 

14. Repeat steps 6 through 13 until the desired solution is obtained. 

It should be noted that in the first iteration, steps 6 and 7 are to 

be omitted. From the assumed wing-alone vortex strengths, the initial 
computed lift and pitching moment coefficients are determined. 

To have a smooth transition in the entire iterative process, the initial 
computed lift and pitching moment coefficients will be varying through 
several intermediate cycles, and each cycle includes two or three iter- 
ations. Since the solution is very sensitive to the variation of the 
step size, the computed step size by one-dimensional optimization tech- 
nique is not used. A reasonable step size in the entire iterative process 
should be such that the induced drag coefficient keeps decreasing as the 
specified constraints were reached. 
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4. NUMERICAL RESULTS AND DISCUSSIONS 


A highly swept back tapered wing (NACA 64A010 uncambered) has been 
selected for analysis to check out the program and illustrate its application. 
The basic geometries of the planform are: (1) aspect ratio of 5.5; (2) 

taper ratio of 0.532; (3) sweep back angle at quarter chord of 45®. In 

the wing-alone case, all the results have been calculated by using six 
chordwise vortex elements and ten spanwise vortex strips over the semi-span 
of the wing. The geometry is shown in Fig. 3. In the jet-on case, the 
semi-span of the wing is divided into three sections, and there are three 
vortex strips inside the jet region. The length of trailing jet c^ used in 
the analysis was one local chord length and four trailing vortices in the 
computation. The jet exit is at the leading-edge. 

The computed induced drag coefficient in the jet-off case approaches 
the theoretical minimum induced drag coefficient in about 10 iterations, 
as shown in Fig. 4. The speed of convergence depends on the absolute value 
of the computed step size. The solution is assumed to have converged if 
the difference between the computed induced drag coefficient and the 
theoretical minimum induced drag coefficient is less than five percent. 

With the wing design lift coefficient being 0.6 and the design pitching moment 
coefficient being -0.036, an iterative process is then used to derive the 
optimum camber and the local angle of attack distributions. Calculated mean 
camber ordinates and pressure distributions are compared with' Stevens' (Ref. 5) 
theoretical results by the Kernel function method (Ref. 8) for three spanwise 
stations in Figs. 5-6. The agreement is seen to be reasonably good. It 
should be noted that to make the comparison at the same spanwise locations 
with Stevens' results, Lagrange interpolation technique is used here to find: 
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(1) the calculated mean camber ordinates at spanwise stations of 0.15, 
0.5 and 0.85 ; and (2) the computed pressure distribution at spanwise 
stations of 0.383, 0.707 and 0.924. The comparison of the local angles 
of attack (or twist) Is shown In Fig. 7. The agreement Is again good. 
Near the root chord, the computed twist by the present method Is seen 
to be quite nonlinear. This result Is consistent with the swept wing 
design by Williams and Ross In Ref. 16. It Is probably due to the 
planform kink effect . This kink effect seems to appear also In the 
calculated span loading by the present method, as shown In Fig. 8. 

Having established the accuracy for the present method In the 
wing-alone case. It Is of Interest to see the minimum Induced drag 
configuration with upper-surface-blowing jet. The geometry Is shown 
In Fig. 9. To show the jet effects, two areas of Interest will be 
Investigated. First, how the wing-alone results will be modified by 
the blowing jet with given y and 5^ . Second, what the effects of 
U and would have on the camber ordinates, span loading, twist 
and pressure distribution. All the results are Indicated In Figs. 10-16 
In the jet-on case, the design circulation lift coefficient Is 1.2 
and the design pitching moment coefficient Is -0.075. The calculated 
camber ordinates at two spanwise stations outside the jet region 
are shown In Fig. 10. It Is seen that the mean camber lines are 
changed significantly In the jet-on case. How they are changed depends 
‘ on whether they are Inside or outside the jet region. The results 
In Fig. 10 are for p = 0.1288 and hence are for low speed and high 
thrust conditions. Also , as Indicated In Fig. 10, the 6^ effect 
on the mean camber Is very small. Inside the jet region the camber 
ordinates at two spanwise stations are shown In Fig. 11. It IS 
seen that under high thrust conditions, the camber In the jet 
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region must be largely reduced from the wing-alone configuration. In the 
example shown, the camber ordinates become negative in the inboard vortex, 
strip and the flat smooth camber in the outboard vortex strip. When u is 
increased to 0.2576 and is 10“, the aerodynamic jet interaction is either 
to shift the maximum camber ordinate backward (y =0.21014) or to increase 
the camber ordinates near the trailing-edge (y = 0.25944). Also, in Fig. 11 
when is increased from 0“ to 10“ , the mean camber is decreased positively, 
especially, near the trailing-edge. From the results of Figs. 10 - 11, the 
trend is seen to be that the distribution of the final mean camber shape 
after the optimization process should be such that the loading are decreased 
inside the jet region and increased outside the jet region. Figs. 12 - 14 
illustrate the pressure distributions at four spanwise stations. In Fig. 12 
the p effect on the pressure distribution outside the jet region are as 
follows. In the figure, the so-called initial pressure distribution is 
obtained by applying the jet on the wing-alone optimized configuration. It 
is seen that at a given p, the final pressure distributions are increased 
after the optimization process. Also, the final pressure distributions are 
increased as p is increased from 0.1288 to 0.2576. The effect of 6. is so 
small that its effect on the difference in pressure distribution is not 
shown in Fig. 12. Figs. 13 - 14 show the pressure distribution inside the 
jet region at two spanwise stations. It is seen that there is a high peak 
in the initial pressure distribution with strong jet strength. After the 
optimization process, the final pressure distributions become flat. As p is 
increased from 0.1288 to 0.2576, it seems that the final pressure loading 
becomes smoother, and the difference between initial and final pressure 
distribution is small. At the same p, when 6 . is increased from 0“ to 
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Figure 12. Pressure Distribution ( outside the jet region ) in the jet-on case:. 



0.1288,6 =10“ final 
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Figure 13. Pressure Distribution (inside the Jet region 2y/b=0. 25944) in the jet-on case. 
(Cj^=1.2,e^=-0.075,C =1.676,t - 0.1, M^=M =0,a=0“) 




10®, the pressure distribution is again changed only slightly. Fig. 15 
indicates that the final loading is Seen to be still concentrated in the 
jet region. This is probably because of the jet spreading effect has not 
been accounted for. From the above results, it is seen that the smaller 
the u is, the higher the span loading will be inside the jet region. The 
initial and final pressure distributions for p = 0.1288 and y = 0.2576 are 
also shown in Fig. 15. The distributions of local angle of attack in the 
spanwise direction over the semi-span are shown in Fig. 16. It is seen 
that to reduce the loading inside the jet region negative local angle of 
attack are needed. As y is decreased, the local angle of attack is increased 
negatively inside the jet region. And the decrease of 6^ would Increase the 
local angle of attack inside the jet region. The large variation in the 
local angle of attack Inside and outside the jet region would be smoothed 
out if the jet spreading effect is accounted for. 
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5. CONCLUSIONS AND RECOMMENDATIONS 

By using Lan's QVLM (Ref. 9) and his wing-jet interaction theory 
(Ref. 10 and 11) , an optimization method for 'calculating the mean camber 
surface and twist distribution for the minimum induced drag configuration 

with the upper-surface-blowing jet has been developed. The predicted 

results show good agreement with Stevens' (Ref. 5) theoretical method 
for configurations without the jet effect. Because of lack of data for 
comparison, the accuracy of the theory with the blowing jet effect cannot 
be established. However, the trend of jet effect on camber ordinates, 
span loading, twist and pressure distribution has been investigated. 

The investigation made so far has been for a swept, tapered wing 

with zero leading-edge suction and the jet exit at the leading-edge in 

the incompressible flow only. The present method can be extended to 
handle jet exit away from the leading-edge. Further study for different 
planforms at some Mach numbers and higher free stream to jet velocity 
ratio is recommended. 
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Appendix A 

Gradient Projection Method with Linear Constraints (Ref. 13) 

Consider the objective function C_ . of'N variables y ,,***,Y » 

0,i wl wn 

which possesses continuous partial derivatives with respect to these 
variables. Starting at some point » k=l,***,n, moving with 

a small distance ds defined in the Euclidean sense: 


k=l 


(A.l) 


Then, 


1 - V ( ) = 0 


^ ' ds 

k=l 


(A. 2) 


Since the steepest descent direction of C^ is the direction of the 

dCp i i;,i 

most negative — — , thus. 
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(A. 3) 


The method described below is to find the direction of steepest descent 
aiQong the directions which make Eq.(A.3) stationary subject to Eq.(A.l). 
By using Lagrange multiplier , the following functional can be formed 
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(A. 4) 
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wk 


Differentiating Eq.(A.4) with respect to ( — — ) and setting the result 
to zero, it is found that : 
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ds 
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Substitution of Eq.(A.6) into Eq. (A. 2) gives: 
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from which X can be found : 
o 
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Provided the partial derivatives 
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(A. 8) 


are not all zero, there are 


wk 


dC 




two distinct sets of directional numbers which make — — stationary. 
From Eqs.(A.5) and (A. 8), it is easily seen that: 
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From Eq.(A.3) the directional derivative can be shown to be 
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Let a be a time parameter. Consider the motion along the negative 
gradient direction as a continuous process. Then Eq.(A. 1) becomes ; 
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I ^ ^ 
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(A.ll) 


From Eqs. (A.9) and (A.ll), it can be seen that 
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(A. 12) 
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Then, 
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(A. 14) 


Eq.(A. 14) shows that the motion in the negative gradient direction is 
assured by setting the time derivatives of the coordinates y 
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proportional to the partial derivatives of C 


D,i- 

If the stepwise version is considered, then Eq.(A.14) becomes: 
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where the constant K may be absorbed in the step size Aa. Hence : 
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(A. 16) 
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If the objective fxjnction ^ Is subject to the two linear equality 
constraints. 


Kv" — ’'lwn> " 


(A. 17) 


^^wl’ *^wn— 


(A. 18) 


the relation appropriate to a stepwise process analogous to that given 
by Eq. (A. 16) are : 
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By Taylor's series expansion, Eqs.(A.17) and (A. 18) become 
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Then 


Assume that the constraints are satisfied at the point y 
Eqs.(A.21) and (A. 22) become: 
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In the present method , since the initially computed and values 
approach the constrained values gradually, Eqs.(A.23) and (A.24) 
become the following modified form which are actually applied in the 
iterative process : 
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where and C are the computed values at the p-th Iteration. 

The optimization equations Include Eqs. (A. 20) , (A.25) and (A. 26). They 
are to restore the linear equality constraints and adjust the variables 
Y^» The optimal solution of y^j^ can be found as the objective function 


. reaches the minimum. 

U, 1 
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Appendix B 

Description of the Computer Program 

This computer program provides a theoretical method for determining 
the minimum Induced drag configurations in the vrLng-alone and jet-on 
(USB) cases. The first part of the program is used to set up the 
Influence coefficient matrices of the boundary conditions ( the detailed 
explanation is in Ref. 17 ). The calling routines of this part include 
" GEOMTY ", " JETOFF " and " JETON ". The optimum camber shape and 
twist distribution for the minimum Induced drag can be determined by 
using the second part of the program. The calling routines of this 
part include " WALNOL INVMTX COMJET " and " JETNOL ". In the 
wing-alone case, the optimum solution can be found from the subroutine 
" WALNOL ". In the jet-on case, the subroutines " INVMTX ", " COMJET " 
and " JETNOL " should be used. The initial wing-alone vortex strengths 
used in the jet-on case are obtained by Lagrange interpolation from the 
optimum results in the wing-alone case. 
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Pre-Run Check List 

Before running the computer program, the following checklist should 
be completed: 

(1) To use the adjustable dimensions in the program, the three 
constants of IPANEL, ICW and JPANEE should be declared as 
input parameters in the following subroutines: 

r " WALNOL " 

IPANEL and JPANEE Subroutines^ 

t. " INVMTX " 

! " COMJET " 

" JETNOL " 

The constants IPANEL, ICW and JPANEE are defined as. follows: 
IPANEL Total number of wing vortices (LPANEL) . 

ICW Total number of chordwise vortices along each 

vortex strip. 

JPANEE Total number of jet vortices in the outer or 
inner flow (JPANEL) . 

(2) For IPANEL = 60, ICW = 6, JPANEE = 80, the minimum memory 
needed is 74K (decimal) . 

(3) If ITAPE = 0, the subroutines " INVMTX " and "COMJET " are 
executed and all the matrices are calculated and stored on 
tape. If ITAPE = 1, the subroutines " INVMTX " and " COMJET " 
are bypassed and the calculation proceeds using the matrices 
already computed (and available on tape). 
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(4) Nine temporary files and one tape must be provided. The detailed 
explanation of each file is given below; 


[^ww] 


File 01 The influence coefficient matrix |N,„,| for the 
wing-alone case. 

File 02 The tangential velocities on the trailing jet 
surface to be used to satisfy the jet flap 
effect. 

File 03 AJLl the Influence coefficient matrices of the 
boundary conditions for the jet-on case. 

File 04 The influence coefficient matrix after being 
interpolated for the wing-alone case 

File 08 The coefficient matrix of the optimization 
equations and the right hand side of those 
equations. 

File 09 The inverted augmented matrix of the boundary 
conditions. 

File 10 The derivatives of camber slope with respect 
to wing-alone vortex strength. 

File 11 The influence coefficient matrices after being 
interpolated for the jet-on case ( ^ A j , ^ B j ) . 

File 12 The derivatives of the jet vortex strength in 

the outer flow and of the additional wing vortex 

strength both taken with respect to the 

wing-alone vortex strength. 

(5) Check input data. 
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Input Data Format 


Group 1. Format 13A6 1 card 

Any title identifying the case to be run. 

Group 2. Format 4(6X,I4) 1 card 

ICASE Number of cases to be run. 

NG = 0 if all cases have the same geometry other than 

the angle of attack. 

= 1 if new configurations or different freestream- 
jet velocity ratios are to be treated. 

ISYM = 0 for a centered jet. 

= 1 , otherwise. 

ITAPE = 0 if all matrices are to be calculated and stored 
on tape. 

=■ 1 if all matrices on tape are to be used. 

Group 3. Format 8F10.5 1 card 

AMI Mach msnber of the freestream. 

AM2 Mach number of the jet flow. 

VMU Freestream velocity divided by jet velocity. 

TEMP Jet static' temperature divided by freestream static 

temperature. Assumed to be the same as ratio of 
freestream density and jet density. 

ALP Angle of attack in degrees. 

XEL X-coordinate of the wing L.E. at the jet centerline. 

XET X-coordinate of the wing T.E. at the jet centerline. 
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1 card 


Group 4. 


Group 5. 


Group 6. 


Format 2(6X,I4) 5F10.5 


NFP 


NJP 


DF(I) 
1=1, NFP 


Number of flap sections, including the jet span, 
A maximum of five flap sections may be input.. 
Numerical order of the jet span among the NFP 
sections. 

Flap deflection angles in degrees for the flap 
sections. 


Format 

HALFSW 

TWIST 

TWISTR 

XJ 

YJ ‘ 

ZJ 

J 

RJ 

GREF 

Format 

TEANGL 

PTIAL 

USB 


8F10.5 1 card 

One half of the reference wing area. 

Difference in angle of attack at the tip and the 
root in degrees. Negative for washout. 

Incidence angle of the root chord in degrees. 

X,Y, and Z-coordinates of the midpoint of the jet 
cross section at the exit. 

Jet radius. 

Reference chord length. 

3F10.5 1 card 

Trailing-edge half angle of the airfoil at the jet 
centerline in degrees. For USB applications, it may 
be arbitrary. 

= 0. for clean or full-span flap configuration. 

= 1. for partial -span flap deflection. 

= 0. for OWB applications. 

= 1. for USB applications. 
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Group 7. Format 3F10.5 1 card 

CMU Jet thrust coefficient. 

DFJ Jet deflection angle in degrees at the trailing 

edge relative to the chord line. At small flap 
angles, it may be taken as the sum of flap angle 
and the airfoil trailing edge half angle. At 
large flap angles, experimental values should 
be used. 

TNJ = 0. if the entrainment is not to be accounted 

for. Usually this is the case if the jet is 
on the wing surface. 

=1. if the entrainment due to an equivalent 
round jet is to be accounted for when a 
rectangular jet is not on the wing surface. 


Group 8. 


Format 

NC 


Ml (I) 
1=1, NC 


8(6X,I4) 1 card 

Number of spanwlse sections. A natural way of 
dividing a planform into sections is to follow 
lines of discontinuity, such as edges of 
partial-span flap, jet boimdary, wing edge 
discontinuities , etc. 

Number of vortex strips in each spanwlse section, 
plus one. 
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Group 9 . 


Group 10. 


Group 11. 


Group 12. 


Format 

NJW(I) 
1=1, NFP 


Format 

NW(I) 
1 = 1 , 2. 3 


Format 

XXL(l) 

XXT(l) 

YL(1) 

XXL(2) 

XXT(2) 

YL(2) 

Format 

NNJ 

NSJ 


5(6X,I4) 1 card 

The numerical order of the flap and jet spans 
among the spanwise sections. 

3(6X,I4) 1 card 

Number of chordwise vortex elements in each 
chordwise section. The planform is divided into 
chordwise sections according to such lines of 
discontinuity as jet exit, flap hinge, etc. 

6F10.5 1 card 

x-coordinate of the leading edge of the inboard 
boundary chord of a given spanwise section, 
x-coordinate of the trailing edge of the inboard 
boundary chord of the same spanwise section, 
y-coordinate of the inboard boundary chord, 
x-coordinate of the leading edge of the outboard 
boundary chord of the same spanwise section, 
x-coordinate of the trailing edge of the outboard 
boundary chord. 

y-coordinate of the outboard boundary chord. 
6(6X,I4) 1 card 

Number of jet sections. 

= Number of jet circumferential strips minus one 
for a noncentered jet (always use odd numbers). 

= Number of jet circumferential strips on the half 
jet plus one for centered jet (always use even 
numbers) . 
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NCJ(I) Number of streamwise vortex elements in each 

section. For those jet sections above the wing, 
these numbers should agree with the correspond- 
ing numbers of wing vortices. 

Group 13. Format 4F10.5 (4 x NNJ) cards 

XXL (I) 

Coordinates of the bounding lines defining the 

XXT(I) 

, rectangular jet sections in USB applications. 

YL(I) 

They are the x-coordinates of the leading and 

ZL(I) 

trailing edges, the y-coordinate and the z- 

1=1, •••,4 

coordinate of the bounding line. There are 4 
cards for each jet section. The jet section 
behind the trailing edge should be at least 
one local chord in length. 

Group 14. Format (4F10.5,I10) 1 card 

CDBAR Theoretical minimum induced drag coefficient 

in the wing alone case. 

CLBAR Lift constraint in the wing alone case. 

CMBAR Pitching moment constraint in the wing alone 

case. 

DELTA Initial step size in the wing alone case. 

MAXP Maximum number of iterations in the wing 

alone case. 
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Group iSi Format (3Fi0.5,ll6) . 1 card 

CLEAR Lift constraint in the jet-ori case. 

CMBAR Pitching moment constraint in the jet-On case. 

DELTQ Initial step size in the jet-oh case. 

MAXP Maximum number of iterations iii the jet-on case. 

Group 16 i Format (IlO.FlO.S) 1 card 

NUMB Number of intermediate cycles for the initial 

computed lift and pitching moment coefficients 
to reach the constrained values w There are two 
or three iterations in each cycle. 

SIZE The constant step size is to be used in the 

jet^n case* 

Note; The read statements for the input data in groups 3-13 can be 
seen in subroutine " GEOMTY ", the input data of group 14 is 
in subroutine " WALNOL ", the input data in groups 15-16 are 
in subroutine " JETNOL "i The input data for groups 1 and 2 
can be seen in the main program. 
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Sample Input Data for the Wing— alone and Jet-on cases 


Card 







1 

* * * 

WING ALONE CASE * 

* * 



2 


1 . 

1 

1 

1 


3 

0. 

0. 

0.2576 

1. 

0. 

-0.29391 

4 


1 

1 0. 




5 

0.36364 

0. 

0. 

-0.29391 

0.25945 

0.05 

6 

0. 

1. 

1. 




7 

1.676 

10. 

0. 




8 


1 

11 




9 


1 





10 


6 

0 

0 



11 

-0.56776 

-0.09304 

0. 

0.48778 

0.74033 

1. 

12 


1 

7 

6 



13 

-0.56776 

-0.09304 

0. 

0. 



14 

-0.56776 

-0.09304 

0. 

o.i 



15 

0.48778 

0.74033 

1. 

0.1 



16 

0.48778 

0.74033 

1. 

0. 



17 

0.02084 

0.6 

-0.036 

50. 

15 


18 

* * * 

JET ON CASE WITH UPPER SURFACE BLOWING 

*ic-k 

19 

0. 

0. 

0.2576 

1. 

0. 

-0.29391 

20 


1 

1 0. 




21 

0.36364 

0. 

0. 

-0.29391 

0.25945 

0.05 

22 

0. 

1. 

1. 




23 

1.676 

10. 

0. 




24 


3 

3 

4 . 

6 


25 


2 





26 


6 

0 

0 



27 

-0.56776 

-0.09304 

0. 

-0.3675 

0.06507 

0.18972 

28 

-0.3675 

0.06507 

0.18972 

-0.22031 

0.18128 

0.32917 

29 

-0.22031 

0.18128 

0.32917 

0.48778 

0.74033 

1. 

30 


2 

7 

6 

4 


31 

-0.3675 

0.06507 

0.18972 

0. 



32 

-0.3675 

0.06507 

0.18972 

0.1 



33 

0.22031 

0.18128 

0.32917 

0.1 



34 

0.22031 

0.18128 

0.32917 

0. 



35 

0.06507 

0.49764 

0.18972 

0. 



36 

0.06507 

0.49764 

0.18972 

0.1 



37 

0.18128 

0.58287 

0.32917 

0.1 



38 

0.18128 

0.58287 

0.32917 

0. 



39 

1.2 

-0.075 

0.1 

20 


40 


5 0.*i 






0. 12318 

1 . 


0. 12318 

1 . 


0.37495 


0.37495 
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Output Data Format 

The title of the job and the Input data will be printed in the same 
format as it was input. For the upper-surface-blowing configuration, 
the following output data will be printed ; 


HALFSW 

GREF 

LPANEL 

JPANEL 

LAST 

LTOTAL 


The reference half -wing area. 

The reference chord length. 

Total number of wing vortices. 

Total number of jet vortices in the outer or inner 
flow. 

The number of wing vortices plus the number of outer 
jet vortices. 

LAST = LPANEL + JPANEL 

The total number of vortices which is the sum of wing 
vortices, outer jet vortices and inner jet vortices. 
LTOTAL = LAST + JPANEL 

= LPANEL + 2 (JPANEL) 


Vortex Element Endpoint Coordinates 


Xj^,Yj,Zj^ Coordinates for the inboard endpoint of a bound vortex 


element. 


X2.Y2.Z2 Coordinates for the outboard endpoint ( corresponding 
to ( Xj^jYj^.Zj) ) of a bound vortex element. 

Note: Wing elements are listed first and then jet elements. The number 

of elements listed should equal (LAST) « 
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Control Point Coordinates 


XCP 

Two columns of control point coordinates, one point 

YCP 

for each vortex element. 

ZCP 

Note: Control points on the wing are listed first and then control 

points on the jet surface. The number of points listed should 
equal (LAST) . 

■ Overall Aerodynamic Coefficients 
The step size which is used in the N-th iteration. 

The computed induced drag coefficient in the N-iteration. 
The computed lift coefficient in the N-th iteration. 

The computed pitching moment coefficient in the N-th 
iteration. 

Camber Shane and Twist Distribution 
ALPAO Local angle of attack (twist) along each vortex strip. 
Camber ordinates along each vortex strip. 


delta 

CDII 

CLII 

CMII 


CAMZC 



Sectional Pressure and Force Data 


XV Fraction of local chord. 

YV Spanwise fraction of semispan. 

CP The total at the given (XV, YV) point due to both wing and jet 
induced circulation. 

CPW The ACp that would occur at that same point for the wing alone 
case. 

Y/SP The y-coordinate of the chord divided by the half span. 

CL The sectional lift coefficient due to circulation (jet on), 

nondimensionallzed with q c. 

00 

CM The sectional pitching moment coefficient about the Y-axis, 

2 

nondimensionallzed with q c . 

00 

CT The sectional leading edge thrust coefficient, nondimensionallzed 

with q c. 

00 

CDI The sectional Induced drag coefficient, nondimensionallzed with q 
CLW The sectional lift coefficient for the wing alone case. 

CMW The sectional pitching moment coefficient (about Y-axis) for the 
wing alone case. 

CDW The sectional induced drag coefficient for the wing alone case. 

Span Loading Computation 

Jet-Off Span Loading 

( CLW X CH ) 

■ ‘ ~ • CREF (where CH is local chord length) 

Jet~On Span Loading 

= ( CL .X.CH )„ 

CREF (where CH is local chord length) 


68 



Total Force and Moment Data 

The Lift Coefficient 

The total circulation lift coefficient due to the wing, wing-jet 
interaction and entrainment (if any). ■ 

Total Induced Drag Coefficient 

Total induced drag coefficient for the jet on case. 

Induced Drag Parameter 

S.i 1 

“ _ 2 Tre AR 

Total Pitching Moment Coefficient 

Pitching moment coefficient due to all circulation forces, about 
the Y-axis. Nondimens ionalized with CREF. 

Coanda Effect 

Coanda Lift Coefficient 

The lift coefficient due to the lift component of the jet reaction 
force. 

Coanda Drag Coefficient 

The drag coefficient due to the drag component of the jet reaction 
force. 

Coanda Moment Coefficient 

Pitching moment coefficient due to the pitching moment caused by 
the jet reaction force (about Y-axis) . ■ 

The last four coefficients printed are due to aerodjmamic forces and 
moments generated solely by the wing without any jet effect (jet off). 
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Appendix C 

Computer Program Listing 


( This program is operational on Honeywell 66/60 computer ) 
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02-13-73 


02.177 


$ OPTION FORTRAN 

$ FORTY 

$ INCCDE I'BMF 

C MINIMUM INDUCED DRAG C ON F I GUR AT ION W I TH J ET I N T ER A C T ION 

C BY C. EDWARD LAN AND JENN-LOUH PAO OF THE UN IVE RSI TY OF KANSAS 

C THIS PROGRAM IS DESIGNED TO F I N D TH E OP T I MUM C AMB ER SH AP E/ TWIST 

C DISTRIBUTION/ SPAN LOADING / AND CHORDWISE PRESSURE DISTRIBUTION 

C CORRESPONDING TO THE MINIMUM INDUCED DRAG C ON F I GU R AT I ON I N THE 

C WING ALONE AND JET ON ( UPPER-SURFACE-BLOWING ) CASES. 

C 

DIMENSION AW(300)/TITLE(13) 

C OMMON /SCHEME/ C(2)/X(10/41 ) / Y(10/41 )/SLOPE(15)/XL(2/15)/XTT(41)/ 
1 XLL(41 ) 

COMMON /GEOM/ H A L F S W / X CP ( 2 00) / Y CP ( 200 ) / 2 C P ( 2 00 ) / X L E ( 5 0) / Y L E ( 5 0 ) /XT 
IE (50)/PSI(20)/CH(95)/XV(200)/YV(100) /SN( 8/ 8 ) /X N( 200/ 2 ) / Y N < 200/ 2) / 
2 ZN( 200/2) /WIDTH(8)/YCCN(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX( 
39 5/2)/SC<1 60/5 ) /SI <160/5)/LC<3) 

COMMON /AERO/ AM 1 / AM2 / 6l /B 2/ C L ( 30 ) / C T ( 30 ) / C D ( 30 ) / G AM ( 2/100) 

COMMON /COST/ LTOTAL/LPAN1/NJW(5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1 I ST/DF(5)/NFP 

COMMON /CONST/ NCS/NCW/Ml<8)/NSJ/NCJ(5)/LAST/MJWl<3/5)/MJW2<3/5)/J 
1 P ANEL/MJ J ( 5) /NU (3) /NN J /NJP 
COMMON /PARAM/ A LP T / A L PC / A L PS / C OF / SO F / TH / T D F 
COMMON /JET/ PK1 /XC/XJ T(31 )/A(31)/B<31 ) 

COMMON /ADO/ CP<10G)/CM<30)/BR£AK(8)/SWP(8/15)/6AL(30)/ISYM/VMU/VU 
1 / TEMP/FCR/CAMLER/C AMLET/CAMTER/CAMTET/XJ/YJ/ZJ/ RJ/ALP/CREF /TWISTR 
COMMON /CLOPE/ 0 ZD X K ( 1 00 ) / ALP AO ( 1 5 ) / 6 C B ( 1 00 ) /G C 8X ( 1 00 ) / TH E TAK ( 1 0) 

1 / CCX <100) /OZOXK ( 100) /G AN(2 /100) 

.COMMON /LING/ GL BA R / 6M BAR / FC L I I / F C MI I 
COMMON /WLONE/ 0 ZO X K W ( 1 00) / G A MW ( 1 00 ) / C AMZ C W ( 1 00 ) / AL PA OW ( 2 0 ) 

COMMON. /I DENT/ 0Z0XK1 ( 1 00 ) / G A M K 1 00) / C AMZ C 1 (1 00 ) / A L PA 0 1 ( 2 0 ) / Y L E 1 ( 2 
10) 

2 FORMAT {5F10.5) 

3 FORMAT ( 7< 6X/ 14 ) ) 

1 9 FORMAT (1 3A6) 

406 FORMAT ( ^0 H* ************************************** *) 

P 1=3.141 59265 

READ (5/19) <T ITLE ( I ) / 1=1 /I 3) 

WRITE (6/406) 

WRITE (6/19) (TITLE (I) /I=1 /13) 

WRITE (6/406) 

NC0N=1 

C 

C ***NUMBER OF CASES TO BE RUN/ GEOMETRY CODE ( = 1. IF GEOMETRY VARIES. 

C IN THIS CASE/ ALPHA MAY ALSO 8 E D I F F E R EN T . =0 F OR THE SAME 6E0ME- 

C TRY BUT DIFFERENT ALPHA'S) / AND SYMMETRY CODE (=0 FOR A CENTERED 

C JET/ AND=1 OTHERWISE)/ ITAPE=1 FOR MATRICES ON TAPE ARE TO BE USED 

C ITAPE=0 / THEN COMPUTE ALL MATRICES *** 

C 

READ (5/3) ICASE/ NG/ I SYM/ I TAP E 
WRITE (6/3) ICASE/NG/ISYM/ITAPE 
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02-18-78 


02. 1 77 


20 CONTINUE 

CALL LLINK (6HLINK 11 ) 

CALL GEOMTY (KCOOE) 

CALL LLINK (6HL INK 22) 

C ALL JE TOf F 

CALL LLINK (6HLINK33) 

CALL WALNOL 
98 CONTINUE 

READ (5^19) (TITLE (I)^I = 1/13) 
WRITE (6^406) 

WRITE (6^19) ( TI TL£(I ) /I=1 ^13) 

WRITE (6^406) 

CALL LLINK (6HLINK 11 ) 

CALL 6E0i'1TY(KC00E) 

L 1=LPANEL+ 1 
J 7 = LPANEL+ JPANEL 
I F ( ITAPE .E3, 1 ) GO TC 40 
CALL LLINK (6HLINK22) 

CALL JETOFF 
CALL JETON(KCOOE) 

CALL LLINK (6HLINK44) 

CALL INVMTX 

CALL LLINK(6HLINK55) 

CALL COMJET (KCOOE) 

10 CONTINUE 
REWIND 01 
REWIND 03 
REWIND 04 
REWIND 09 
REWIND 10 
REWIND 11 
R EWINO 1 2 
REWIND 13 
DO 41 1=1 ^LPANEL 
READ (01) ( AW ( J ) / J = 1 ^L 1 ) 

41 WRITE (13) (AW (J ) ^J=1 /L1) 

DO 42 I=ULTOTAL 

READ (03) (AW ( J ) /•J =1 ^L TOTAL) 

42 WRITE ( 1 3) ( AW ( J ) /J =1 ^L TOTAL) 

DO 44 I = ULT0TAL 

READ (09) (AW(J)/J=1/LT0TAL) 

44 WRITE (13) (AW( J)/J=1/LT0TAL) 

DO 45 I=1/LPANEL 

READ (10) (AW ( J) /J=1 ^LFANEL) 

45 WRITE (1'3) (AW( J)^J=1/LPANEL) 

DO 46 I = WLPANEL 

READ (11) (AW( J)^J=1/J7) 

46 WRITE (13) (AW( J)^J=1r J 7) 

DO 47 I=1/LPANEL 

READ (12) ( AW ( J) =1 / J 7) 

47 WRITE ( 1 3) (AW ( J ) /J =1 /> J 7) 



(A trt 


02-18-7S 02.177 

GO TO IOC 
40 eWiNO (13 ) 

REWIND 01 
R6WIN003 
. R EWINO 04 

R E W I N D 0 9 : 

REWIND 10 
REWIND 11 
REWIND 12 
00 51 I=mPANEL 
READ (13) (AW( J)^J=1/L1) 

51 WRITE (01) (AW(J)#J=1 /Li ) 

DO 52 1=1/LT0TAL 
READ (13) (AW(J)/J=1/L TOTAL) 

52 WRITE (03) (AW(J )/J=1 /L TOTAL) 

DO 54 I=1/LT0TAL 
READ (13) (AW( J) /J=1/LT0TAL) 

54 WRITE (09) (AW( J)/J=1/LT0TAL) 

00 55 I=1/LPANEL 
READ (13) (AW( J)/J=1/LPANEL) 

55 WRITE ( 1 0) (AW( J ) /J =1 / LPANEL) 

DO 56 I =1/LPAN EL 
READ (13) (AW( J)/J=1/J 7) 

56 WRITE (11) (AW(J)/J=1/J7) 

00 57 1=1 /LPANEL 
READ (13) (AU(J)/J-1/ J7) 

57 WRITE (12) (AW ( J )/ J=1 / J7) 

100 CONTINUE 

REWIND 04 
R EWINO 1 1 
DO 25 1=1/ LPANEL 
READ (11) (AW( K)/K=1 / J 7) 

WRITE (04) (AW (K)/K=JPANEL+1/ J7) 

25 CONTINUE 

CALL LLINK (6HLINK66) 

CALL JETNOL (KCODE) 

NC0N=NC0N+1 

IF (NCON .LE. ICASE) GO TO 98 
IF (NCON .GT. ICASE) GO TO 5 
IF (NG .£Q. 1 ) GO TO 2C 
5 C CNT INUE 
S TOP 
END 
FORTY 

LIMITS /27K 
$ INCOOE IBMF 

SUBROUTINE S TRE AM( ALP H A/ VMU/ I / IPH 1/ LP A N EL/ T EMP / LP AN 1 / LP A N2 / I S Y M / 
KCOOE/EXIT/MJ/INOEX/BA) 

C TO COMPUTE the RIGHT HAND SIDE OF THE SIMULTANEOUS EQUATIONS 

DIMENSION PHIN(3C0)/3A(1) 

COMMON /AERO/ AM1/AM2/el/B2/CL{30)/CT(30)/C0(3C)/GAM(2/100) 
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02^1 8-78 


C2. 1 77 


COMMON /CONST/ NCS#NCW/Ml(8>^NSJ^NCJ(5)/LAST/MJWl(3/5)/MJW2(3/5)<J 

1 P ANEL^MJ J ( 5) <NW (3) #\'N J ipN JP 

COMMON /PARAM/ A LP T ^ A L PC / A LPS ^ C DF ^ S D F / T H / T D F 

C CMMON /GEOM/ H AL F S W / X CP ( 2 00 ) # YCP ( 2 00 ) ^ Z C P < 2 00 ) L E ( 5 0 ) ^ Y L E ( 5 0 ) T 
1E(50)^PSI(20)^CH(95)/XV(200)^YV(1 00) /«SN< 8 / 8 ) f X N ( 200/ 2 ) > Y N ( 200 ^ 2) / 

2 2N(200/2) / WIDTH(8)/YCCN(2 5)/SWEEPC50)/.HALFB/SJ (21/8)/EX(95/2) /TX( 
395/2)/SC(1 60/5)/SI (160/5)/LC(3) 

COMMON /SCHEME/ C(2)/X<10/41)/Y(10/4n/SL0PE(15)/XL(2/15)/XTT(41)/ 
1XLL(41) 

EQUIVALENCE ( X ( 1 / 1 ) / P H IN < 1 ) ) 

PI=3.1 41 59265 
IUS8=YC0N(24) 

Z J ET=YC0N( 25) 

N1=NNJ-1 
N 2 = NNJ-2 
N3=NNJ^3 

IF (NNJ.EQ.1) N1=1 
NJH=(NSJ+1 )/2+1 
IF (ISYM ,EQ. 0) NJH=NSJ/2 
NP=NJH-1 

IF USYM .EQ. 0) NP = NJH 
ALPHA=0. 

I F ( I . GT. LPANEL) GO TO 1 
GO TO 5 

1 I F U .GT. LAST) GO TO 10 

IF (EXIT . LE. C.001 ) GC TO 2 
I F (NNJ .EQ. 1 ) GO TO 2 

IF (I .LE. MJJd) .AND. I . NE . MJ ) GO TO 5 

2 CONTINUE 

ALPHAsALPT *Y(3/ IPH I )* < 1.-VMU) 

I F < TH . LE . 0. 001 ) GO TO 3 
IF (IPHI .EQ. NJH) GO TO 3 

IF (ISYM .NE. 0 .AND. IPHI .EQ. 1) GO TO 3 

IF (NNJ.EQ.1 .AND. I. GT. LPANEL) A LPH A = ALPH A +C 0 F * ( 1 . -V MU ) 

IF (NNJ.NE.1 .AND. I . G T. M J J (N1 ) ) A LPH A = AL PH A + C D F * ( 1 .- VMU ) 

3 CONTINUE 

IF (A8S(ai-a2) .LE. 0.C01) GO TO 28 

call NORSPO ( I / ALPH/LP ANEL/ IPH I/LPANI /LPAN2/ INOEX/BA) 

ALPHA=ALPH A+AL PH 
23 I F (KCOOE .EQ. 0) GO TO 5 

IF (EXIT .LE. 0.001) GC TO 29 
I F (NNJ . EQ . 1 ) GO TO 29 

IF (I .LE. MJJd) .AND. I .EQ. MJ) AL PH A= ALP H A / 2. 

29 IF (IPHI .EQ. NJH) GO TO 5 

IF (ISYM .NE. 0 .AND. IPHI .EQ. 1) GO TO 5 

IF (IUS3 .EQ. 1 .AND. ZJET .GT. 0.01) 60 TO 5 

IF (CDF .LT. 0.0001 ) GC TO 5 
I F ( NN J . EQ. 1 ) 60 TO 12 
IF (I .LE. MJJ(ND) GO TO 5 
12 IF (IPHI .LT. NJH) IL=IPHI+ISYM 

IF (IPHI .GT. NJH) IL=IPHI-NJH+ISYM 
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02-18-78 


02. 177 


IF (MNJ.EQ.1) HJN1=LPA\EL 
IF (NNJ.NE.1) MJN1=MJJ(N1) 

MFsrl-MJNl-UPHI-l) ♦NCJ (NNJ) 

F NNJ =NCJ ( NNJ) 

0 1ST J = St)f 

DLX=DI STJ*C.5*PI/FNNJ 
SZX=-(1 .-VMU) 

IQ=< IL-1 )*NCJ ( NNJ) 

IF (NNJ .EQ, 1) IP=LPANEL+IQ+1 
IF (NNJ ,NE. 1) IP = MJ J (N1 ) + IQ + 1 

00 6 JJ=1/MF 

IF (JJ .EQ, MF> GO TO 7 
OXTH=OLX*PSI(JJ)*TEMP*VMU*VMU/TH 
GO TO 3 

7 DXTH=0LX*PSI(JJ)*TEMP*G,5*VMU*VMU/TH 

8 J<1=IP+JJ 
J K2 = J<1-1 
PR00=SZX*0XTH 

J X3= JK2 + NP*NC J ( NNJ ) 

ALPH A=ALPHA+PROO*( PHIN (JK2)-PHIN(JK3)) 

6 CONTINUE 
60 TO 5 
10 CONTINUE 

1 F ( INDEX. EQ. 1 ) GO TO 62 
GO TO 63 

62 DO 64 M=WLPANEL 
BA(M>=0.0 

64 CONTINUE 

63 CONTINUE 
IJ=I-JPANEL 

I F (KCOOE .EQ. 0) GO TO 30 
IF (EXIT .LE. 0.01 ) 60 TO 4 
IF (NNJ .EQ. 1 ) 60 TO 4 

IF (IJ .6T. LPANEL .AND. IJ .LE. MJJ(U) GO TO 5 
4 CONTINUE 

IF (IUSi3 ,EQ. 1 .AND. ZJET .GT. 0.01) GO TO 30 
I F (NNJ .EQ. 1 ) GO TO 30 


I F 

(IJ .GT 

. MJ J (N1 ) ) 

GC 

TO 

30 

I F 

(IPHI . 

LE. NJH) GO 

TO 

30 


L 1 = 

NJH 





I F 

( I S Y M . 

EQ. 0) L1=NJH+1 


I F 

( NW ( 2) 

.EQ. 0) GO 

TC 

70 


I F 

(NW(3J 

.EQ. 0) GO 

TO 

71 


IF 

(IJ .GT 

. MJJ(N2)) 

GC 

TO 

32 

I F 

(IJ .GT 

. MJJ(N3)) 

GO 

TO 

34 


IF (NNJ ,EQ. 4) GO TO 33 

IF (NNJ . EQ. 5 .AND. IJ . GT. MJJ(NNJ-4)> GO TO 33 
60 TO 30 

71 IF (IJ .GT. >IJJ(N2)) GC TO 34 
IF (NNJ .EQ. 3 ) 60 TO 33 

IF (NNJ .EQ. 4 .AND. IJ .GT. MJJ(N3)) GO TO 33 
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GO TO 30 

70 IF ( NNJ ,EQ. 2) GO TO 33 

IF (NNJ .EQ. 3 .AND. IJ ,GT. MJJ(N2)) GO TO 33 
GO TO 30 

33 < 1=MJW 1 ( I^NJP) + ( IPHI-L 1-IS YM) *NW( 1 )-1 , 

K2=LC(1)+IPHI-L1-ISYM 
KNW=NW( 1 ) 

GO TO 35 

34 K1=MJW'1 <2/NJP> + (IPHI-ll“ISYM)*NW(2)-1 . 

K2=LC(2)+IPHI-L1-ISYM 
KNW=NW<2) 

GO TO 35 

32 K1 =MJW1 (3/NJP) + ( IPHI-L 1-IS YM) *NW( 3)-1 
K2=LC(3)+IPHI-L1-ISYM 
KNW=NW(3) 

35 CONTINUE 
ALPHA1=0. 

ALPHA2=0. 

00 40 KK=1/KNW 
KL=K1+KK 

AA=1. ' 

00 42 L=1/KNW 
LL=K1+L 

IF (L .EO. KK) GO TO 42 
AA = AA*(XCP(IJ)-XV(LLJ) / ( X V ( K L ) - XV ( LL ) ) 

42 CONTINUE 

1 F ( INOEX. EQ. 1 ) GO TO 65 
ALPHAlsALPHAl+AA*GAM(1/KL) 

IF (ABS(Bl-32) .LE. 0.C01) 60 TO 40 
ALPH A2»ALPHA2+ AA*GAM< 2#KL) 

GO TO 40 

65 BA(KL) =AA* ( 1 .-TEMP*VMU*VMU) *0. 5 
40 CONTINUE 

IF (AaS(3l-B2) .LE, 0.C01) AL PH A2 = ALP H A 1 
ALPHA=(ALPHA2-TEMP*VNU*VMU*ALPHA1 ) *0. 5 
60 TO 5 
30 CONTINUE 

call speed <VMU^I/ALPHA^LPANEL^TEMP^LPAN1,LPAN2#PHIS/IPHI/ISYM^ 
1INDEX/8A) 

IF (KCOOE .EQ. 0) GO TC 5 
IF (COF .LT. 0.0001) GC TO 5 
I F (NNJ .EQ, 1 ) GO TO 39 
I F ( IJ .LE . MJ J (N1 ) ) GC TO 5 
39 PHIN(IJ)=PHIS 
5 CONTINUE 

50 FORMAT (6(6X^I4)> 

RETURN 
END 
FORTY 

LIMITS /27K 
$ INCODE IBMF 
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S U8R0UTINE SPEE0(VMU#I ^ALPHA^LPANEL^TEMP^LPANl ^ LPAN2^ PH I S / I PH I # 

1 I SYM^INOEX ^BA) 

C TO COMPUTE THE INDUCED TANGENTIAL VELOCITIES DUE TO WING ALONE 

C VORTICES 

DIMENSION SU< 1 00)^BA( 1 ) 

COMMON /AERO/ AM W AM2 / El / B 2 ^ C L ( 30 ) /C T ( 30) ^ C D ( 3 0 ) ^ GAM ( 2^,1 00 ) 

COMMON /CONST/ N CS ^NC W #M 1 ( 8 ) / N S Jv N C J ( 5 ) > L AS T / M J U1 < 3^ 5 ) ^ MJ W2 ( 3 # 5 ) ^ J 
- “1‘P ANEL/MJ J ( 5) ^NW ( 3) /NNJ /NJP 

COMMON /GEOM/ H A L F S W# X CP ( 2 00) / YCP ( 200 ) ^ Z C P ( 2 00 ) L E ( 5 0 ) ^ Y L E < 5 0 ) ^XT 
1E(50)/PSI(20)-^CH(95)^XV(200)^YV<100)^SN( 8/8)^XN(200/2)^YN(20 0#2)/ 

2 ZN(200^2)/'WIDTH(8)/YC0N(25)#SWEEP(50)^HALFa/SJ<21^8)^EX(9 5^2)#TX( 
39 5^2)/-SC(1 60^5) ^SI (160^5) /LC( 3) 

COMMON /SCHEME/ C(2)#X(10^A1)xY<1O^41)/.SL0PE(15)/XL(2^15)/XTT(41)^ 
1XLL<41) 

N1=NNJ-1 

N2=NNJ-2 

N3=NNJ-3 

ZJET=YCON<25) 

I I = I-JPANE L 
86 = B1 
IC = 1 

10 CONTINUE 
12=1 
MM = 0 
I SN = 1 

NL=NW( 1 ) _ 

NM=NW< 1 ) 

0 * 0 . 

DO 1 J = 1 /L PANEL 
IF (INDEX. EQ.1) 8A<J)=C.O 
JJ=J-MM 
FN = NL 

IF(J ,GT. LPANI .AND. J .LE. LPAN2) ISN=2 


I F 

{ J 

.GT. LPAN2 .AND. 

J 

.LE. LPANEL) 

I SN = 3 

I F 

( J 

.GE. LPANI .AND. 

J 

.LT. LPANEL) 

GO TO 20 

G C 

TO 

21 




NL = 

NW(2) 




I F 

( J 

.GE. LPAN2 .AND. 

J 

.LT. LPANEL) 

NL=NW (3) 


21 CONTINUE 

X 1 =XN( J / 1 ) -XCP ( I I) 
X2=XN(J/2)-XCP(II) 

X 1 2=XN( J ^2 )-XN ( J /I ) 
Yl2 = YN(J/2)-YN(J/1 ) 
Z1=-ZCP(II) 
Z2=-ZCP(II) 

Z 12=0. 

XZJ=-Z1*X12 
DO 2 K=1 /2 

IF (< .EQ. 1) GO TO 3 
N s 1 

GO TO 4 
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5 N=2 

4 CONTINUE 

YC*(-1.)**N*YCP(II) 

Y r=YN( J ^1 ) -YC 
Y2=YN(J ,2) -YC 
X YK=X1 * Y12-Y1 *X 1 2 
YZI=-Z1 *Y1 2 

AL81 =XYK*XYK+X2J*XZJ + BB*YZI*YZI 
R 1 81 =SQRT( XI *X1 +BB* Y1 * Yl +8B*Z 1 *Z1 ) 

R 281 =SOR T ( X2*X2+83*Y2* Y2+8B*Z 2 *Z2) 

UU81=(X2*X12+BB*Y2*Y1 2+BB*Z2*Z 1 2)/R2Bl-(Xl*X12+8B*Yl*Yl2+BB*Z1*Zl2 
1 ) / R 1 81 

F1sUUB1*YZ I/ALB1 

SUM=F1*CH(IZ)*SN<JJ^ISN)*6AM(IC^J>/FN 
IF (K .EU. 1) SU(J )=F1 *CH< IZ)*SN( J J#ISN)/FN 
IF (INDEX. EQ.1) GO TO 54 
GO TO 56 

54 8A(J)sBA(J )+Fl *CH( IZ) *SN(J J^ISN)/FN 
GO TO 2 
56 a=8+SUM 
2 CONTINUE 

IF < J .LT. NM) GO TO 1 
IZ=IZ+1 
MMsNM 
NRsNM+NL 
1 CONTINUE ' 

N JH= (NSJ+1 )/2+1 

IF (ISYN .EQ. 0) NJH*NSJ/2 

IF (IPHI .EQ. NJH) GO TO 30 

IF (ISYM .NE. C .AND. IPHl .EQ. 1) GO TO 30 
I F (NNJ .EQ. 1 ) GO TO 30 
IF (II .GT. MJJ(ND) GO TO 30 

IF (IPHI .GT. NJH .AND. ZJET .LE. 0.01J GO TO 30 
I F ( IPHI . GT. NJH) Li =NJ H 

IF (ISYM .EQ. 0 .AND. IPHI .GT. NJH) Ll=NJH+1 
IF (IPHI .LE. NJH) L1=1 
NZ = 1 

IF (NW(2) .NE. 0 .AND. NW(3) .EQ. 0) NZ=2 
I F ( N’N (3) .NC . 0) NZ = 3 

IF (NNJ .LE. 3 .AND. NW(2) .NE. 0) IR=N2 

IF (NNJ .LE. 3 .AND. NU(2) .EQ. 0) IR=N1 

IF (NNJ .GE. 4 .AND. NW(3) .NE. 0) IR=N3 

IF (NNJ .EQ. 4 .AND. NU(3) .EQ. 0) IR=N2 

DO 41 MP=1 /NZ 

kl-MJWl (MP/NJP)+(IPHI- l1-ISYM) *NW(MP)-1 

K2=4C(MP)+ IPHI-LI-ISYM 

KNW=NU(MP) 

35 CONTINUE 
Kl=Kl-KNi«/ 

<2=K2-1 

MR=3 
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IF (K1 ,.6E .0) GC TO 4C 
K1=K1+KN« 

K2=K2+1 
MR = 2 

40 00 42 NR=1 /MR 
SUM=0, 

00 36 KK=1 /KNW 
KL=K1+KK 

36 SUM=SUM+SU (KL) 

CALL INTEG ( R E S / KN W / K 1 /K 2 / 1 1 / BB / I R ) 
CORN=0. 

0037 KK=1 /KNW 
KL=K1+KK 
A A = 1 . 

00 33 L=1/KNW 
LL=K1+L 

I F (L .£Q. KK) GO TO 38 
A A = AA* (XCP ( 1 1 )-XV< LL) ) / ( XV (KL )-XV (LL) > 
38 CONTINUE 

1 F < INDEX. EQ. 1 ) GO TO 58 
GO TO 59 

58 8A(KL)=3A(KL)-AA*SUM+AA*RES*8. 

GO TO 37 

59 CORN=CORN+AA*GAM(I CVKL ) 

37 CONTINUE 

B=e-CORN*SUM+CORN*RES *8. 

K 1=K1 +KNW 
K2SK2+1 
42 CONTINUE 
I Rsl R+1 

41 CONTINUE 
30 CONTINUE 

IF (INDEX . EQ. 1 ) GO TC 65 
GO TO 63 
65 CONTINUE 

00 60 M=1 / LPANEL 

3A(M)=dA(M)*(1 .-TEMP* VMU*VMU) /8 . 

60 CONTINUE 
68 CONTINUE 

I F ( IC .EQ. 2) GO TO 8 
ALPHA1=B/8. 

I C=I C+1 
BB“B2 

IF (ABS(B1-B2) .LE. 0.CQ1) GO TO 7 
GO TO 10 
3 ALPHA2=B/8. 

GO TO 6 

7 ALPH A2=ALPHA1 

6 ALPHA=ALPHA2-TEMP*VMU* VMU*ALPHA1 
PHI S = ALPHA 2 
100 FORMAT (6( FI 1 . 5) ) 
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lid FORMAT (6(5X^I5>) 

RETURN 

END 

$ FORTY 

$ INCODE I 0MF 

SUBROUTINE NORSPD ( I ^ A LP LPA N E I PH I / LP ANI ^ LP AN2 ^ I N 0 EX / B A ) 

C TO COMPUTE THE INDUCED NORMAL VELOC I T I ES DUE TO WING ALONE 

C VORTICES 

DIMENSION 0A(1) 

COMMON /AERO/ AM 1 , A M2 / El / 82 ^ C L ( 30 ) ^ C T { 30 ) ^ C 0 ( 30 ) /- G A M ( 2^ 1 00 ) 

COMMON /CONST/ NCS#NCW/M1(8)^NSJ^NCJ(5)^LAST^MJW1 (3^5)^MJW2(3/5)^J 

1 P ANEL#MJ J ( 5) ^ NW (3) ^NNJ /NJP 

. COMMON /GEOM/ H AL F S W/ X CP ( 2 00) ^ Y CP ( 200 ) / Z C P ( 2 00 ) /X L E C 5 0 ) ^ Y L E ( 5 0 ) /X T 
1E(50)#PSIC20)/CH(95)/XV(200)/YV(100)^SN( 8/8 ) / XN( 200/ 2) ^YN ( 200^ 2) / 

2 2N( 200/2) /WI 0TH(8) /YCCN(2 5)/SWEEP(50) /HALFB/S J <21/8)/EX(95/2)/TX( 
395/2)/SC(160/5)/SI(160/5)/LC(3) 

COMMON /SCHEME/ C(2)/X<10/41)/Y(10/41)/SL0PE(15)/XL(2/15)/XTT(41)/ 
1XLL(41) 

NJ H= (NS J -1 ) /2 
IZ = 1 
MM = 0 

NN=NW(1) 

I SN = 1 
NL = Nwn) 

A1=0. 

A2 = 0i 

DO 1 jal/LPANEL 
I F (INDEX. EQ.1 ) BA(J)=C. 

JJ=J-MM 
FN = NL 


I F 

( J 

.GT. 

LPAN1 

, AND . 

J 

.LE. 

LPAN2) 

I SN=2 

I F 

( J 

• G T , 

LPAN2 

. AND . 

J 

.LE. 

LPANEL) 

ISN=3 

I F 

( J 

. GE. 

LPAN1 

. AND . 

J 

.LT. 

LPANEL) 

GO TO 10 

GO 

TO 

1 1 







NL = 

N J ( 2 ) 







I F 

( J 

.GE. 

LP AN2 

. AND . 

J 

.LT. 

LPA NEL ) 

NL = NW ( 3 ) 


11 CONTINUE 

X1=XN(J/1)-XCP(I) 

X 2 = XN(J /2) -XC P ( IJ 
X12=XN(J/2)-XN(J/1 ) 

Y 1 2 = YN( J /2 )-YN ( J /I ) 

Z 12=0. 

zia-zcp(i) 

Z 2 = -ZCP( I) 
XZJ=X1*Z12-Z1 *X12 
DO 2 K=1/2 

i F (< .EQ. 1 ) GO TO 3 
N=1 

GO TO 4 

3 N=2 

4 CONTINUE 
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Y C = (-1 . ) **N*YCP ( I) 

Y 1=YN( J /I ).-YC 

Y2=YN(J /2) -YC 

XYK=Xl*r12-Yl*X12 

YZI=Y1*Z12-Z1* Y1 2 

ALB1 =XYK*X YK+XZ J *X ZJ+8 1*YZ I*YZ I 

R 101 =SQR T ( X 1 *X 1 + B1 * Y1 > Y1 +B1 *Z 1 *Z1 ) 

R2B1=SQRT( X2*X2+B1 *Y2*Y2+B1 *Z2*Z2) 

UU81=(X2*X12+B1*Y2*Y12+81*22*Z12)/R2B1-(X1*X12+B1*Y1*Y12+81*Z1*Z12 
1 ) /R1 31 

G1 = (1.-X1/R181 ) /<Y.1*Y1 +Z1>Z1) 

G2=(1 ,-X2/ R201 ) / (Y2*Y2+Z2*Z2) 

ALB2=XYK*X YK+X Z J *X ZJ+02*YZ I*YZ I 
RlB2 = SQRT( Xli^Xl+B2*Yl *Y1+B2*Z1*Z1 ) 
R2B2=SQRT(X2*X2+82*Y2*Y2+B2*Z2*Z2) 

UUa2=(X2*Xl2+B2*Y2*Yl2482*Z2*Z12)/R2B2-(X1*X12+B2*Yl*Yl2+32*Zl*Z12 

D/R132 

G3=(1.-X1/R1B2)/(Y1*Y1+Z1*Z1) 

G4=(1,-X2/ R2B2)y(Y2*Y2+Z2*Z2) 

F13SUU81 *XZJ/ALB1 
F 12SUUB1 *X YK/ALB1 
G 13=Z2*G2-Z1 *G 1 
G12=-Y2*G2+Y1 *G1 
F 23=UJB2*X ZJ /ALB2 
F22=UU82*X Y</ALB2 
G23=Z2*G4-Z1*G3 
G22=-Y2*GA +Y1 *G3 

F1=-F13*Y( A/IPHI)*(-1 . )**N+F12*Y(3/IPHI) 

F 2 = G1 3* Y (A / IPH I ) *( -1 . ) **N + G1 2*Y (3 / IPH 1 ) 

F 3 = - F23* Y ( A» IPHI) * (-1 , )**N + F2 2* Y( 3^ I PH I) 

F A = G2 3* Y (A ^ IPH I ) »( -1 . ) **N+622 * Y <3^ IPHI) 

7 CONTINUE 

I F ( INDEX. EQ. 1 ) GO TO a 

A1=A1+<F1 + F2)*CH(I Z ) * S N( J J ^ ISN) *GAM( 1 / J ) / FN 
A 2 = A2+ ( F3+ FA) *CH (I Z) *S N( J J ISN) *6 A«( 2/> J ) / FN 
GO TO 2 

8 BA (J ) = 3A (J > + ( F 1 +F2-F3- FA) *CH( I Z)*SN(J J ISN) / ( FN*8. > 

2 CONTINUE 

I F ( J .LT. NM) GO TO 1 
1Z=IZ*1 
Ny = NM 
Nr=NM + NL 
1 CONTINUE 

ALPH= ( A1 -M) /&. 

R ETURN 
END 
FORTY 

INCOOE iBflF 

SUBROUTINE VMSEQN ( NC 1 /X / A A # A / C A) 

DIMENSION AA (1 ) / CA (1 ) ^ A(1 ) 

NC=K*NC1 
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SUM1=0. 

K 1 =K-1 
J J = 1 

00 3 J = UK 1 

S UM1 =SUM1+AA( J ) *A( J J ) •; .. 

3 J J=J J +NC1 +1 
SUM1 =SUM1+AA(K) 

00 5 I=UNC1 

5 UM2=0 . 

J J = I+1 

00 4 J = 1 ,K 1 
SUM2=SUM2+AA(J ) *A( JJ) 

4 JJ=JJ+NC1+1 
KK=K+I 

SUM2=SUM2+ AA(KK) 

5 CA(I )=-SUM2/SUMl 
M = 1 

L=0 

KNC=<K-1 )*NC1 

00 8 1=1 /NC 

1 F (I.GT.KNC) 60 TO 7 
M«=(M-1 ) *MC1+1 

1 F ( I. EQ .MM) 60 TO 9 

6 <K=KK+1 
IL=r+L 

A(I)=CA(K<)*BASE+A(IL) 

6 0 TO 3 

7 II=I-KNC 

A ( I ) =C A< 1 1 ) 

8 CONTINUE 
6 0 T 0 1 0 

9 II = «M + iN-1 
SASE=A(II) 

<K = 0 

L=L + 1 
M=,M+1 
60 TO 6 
10 CONTINUE 
RETURN 
END 

$ FORTY 

$ INCOOE IBMF 

SUBROUTINE INTE6 < F ^ NN /L J / I Z ^ I J ^ I R ) 

COMMON /6E OM/ H AL F S W ^ X CP ( 2 00 ) # Y CP ( 200 ) /• Z C P ( 2 00 ) / X L E ( 5 0 ) / Y L E ( 5 0 ) / X T 
1E(50>/PSI(20)/CH(95)/XV(200)^YV(100)^SN( 8^ 8 ) ^ X N ( 200/ 2) ^ Y N ( 200 /• 2 ) / 
=2 ZN(200/2) /WI0TH(8)/YC0N(25)/SWEEP(50)/HALFB/SJ ( 2 1 / 8 ) /E X ( 9 5 / 2 ) / TX ( 
395/2>/SC(160/5)/SI(160/5)/LC(3) 

PI=3.1 41 59265 
J =LJ + 1 
JJ=NN*16 

I F (NN .6T , 6) JJ=NN*8 
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F J = J J 

C1=TX(IZ-p1 )-EX (12^1) 

C2=TX(IZ/2)-£X(IZ^2) 

SUM=0. 

0 0 1 K = 1 * J J 

X XI =EX ( IZj-D + CI *SC (Ky I R) ■ • • 

XX2=EX ( IZ^ 2)+C 2*SC (KV IR) 

X 1=XX1-XCP ( IJ ) 

X2=XX2-XCP(IJ) 

Y 1 = Y^J( J ^ 1 ) -YCP ( IJ) 

Y2=YN(J,2)-YCP(IJ) 

Z1=ZN(J/1)-ZCP(IJ) 

Z2 = ZN(J,2) -ZCP (IJ) 

X 12=XX2-XX 1 

Y1 2=YN ( J ,2 )-YN ( J/1) 

Z12 = ZN(J/2)-ZN(J^1 ) 

YZI=Y1*Z12-Z1*Y12 
X YK=X1 * Y1 2-Yl -^X 1 2 
X ZJ =X1 *z 1 2-Z1 *X1 2 
AL3=XYK*XYK+XZ J *XZ J+B* YZ I* YZ I 
R 1 =SQRT ( X1 *X 1 +e* Y1 * Y 1 +B* Z1 *Z1 ) 

R 2 = SQRT ( X2 <rX2 + a*Y2 *Y2 + e*Z2*Z2 ) 

UU=(X2*X12+3*Y2*Y12+0*Z2*Z12)/R2-(Xl*X12tB*Yl*Y12+B*Zl*Z12)/Rl 
1 SUM=SUM+UU*YZ I/ALB*SI ( X/ IR) 

F=SUM*CH(I Z)/ (8.*FJ) 

, R ETURN 
END 

$ FORTY 

S INCODE I8MF 

SUBROUTINE INVRCX ( TH E T A I / B ON 0 N / A A / I P A N E L I 6 C X ^ A K / I C W ^ C X ) 

C FIND THE INVERSE TRANSFORMATION MATRIX 

DIMENSION THETAI (1 ) ^BONDNd )^AA(1 ) /BI6,CX( IPANEL/1 ) 

DIMENSION AK(1)/CX(ICW/1) 

COMMON /ADD/ CP(100)^CM(30)/BREAK(8)^SWP(S^15)-rGAL(30)^ISYM^VMU/VU 
1/TEMP/FCR/CAMLER^CAMLET/CAMTER^CAMTET,XJ,YJ,ZJ^RJ/ALP#'CREF,TWISTR 
COMMON /CLOPE/ DZDXK(1QO)^ALPAO(15)^GCB(100)/GCBX(100)^THETAK(10). 
1/CCX(100)^CZDXK<10C)/GAN(2/100) 

COMMON /CONST/ NCS/NCW^M1(8)^NSJ^NCJ(5)^LAST,MJW1 (3^5)/MJW2(3/5)^J 
1P ANEL/MJJ( 5) /NW<3) ^NNJ/NJP 

COMMON /GEOM/ HALFSW/XCP(200)/YCP(200) /ZCP( 200) /XLE(50)#YLE(50)/XT 
1E(50)^PSI(20)/CH(95)/XV(200)^YV(100)vSN(8/8 ) ^ X N( 200/ 2) # Y N < 200 / 2) / 
2 ZN< 200/2) /WI 0TH(3) /YC CN(2 5)/SWEEP(50) /HALF0/SJ(21/8)/EX(9 5/2)/TX( 
395/2)/SC(1 60/5)/SI (160/5)/LC(3) 

COMMON /COST/ L T OT A L / L P ANT / N J W ( 5) / LP A N E L / I E N T N / LP AN 2 / E X I T / PT I AL /T W 
II ST/DF (5)/NFP 
P 1=3.1 41 59265 

1 = 1 

I SM=1 
ISN = 1 
I FF = 1 
M J = 1 
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,VN = NW( ISN) 

;'1AX=(M1(ISM)-1)*NW(ISN) 

DO 1 5 J=1xLPANEL 

MI=J-IFF+1 

ML = M1 ( ISM) 

N L = NW( ISN) 

FML=ML 
FNL = rJL 

G CBX ( J ) =-C H ( I ) *WIDTH( I SM) *XV( J.) / ( FNL *.FML*CREF ) *SN <MI^ 1 SN ) *SJ (MJ / I S 
1 M ) 

6CB(J)=CH(I)*WIDTH(ISM)/(FNL*F«L)*SN(MI/ISN)*SJ(MJ^ISM) 

IF (J .LT. NN .OR. J ,EQ. LPANEL) 60 TO 15 
I =1 + 1 
I FF=NN+ 1 

IF (J ,EQ, LPAN1 .OR. J .EQ. LPAN2) ISN=ISN+1 
N N = NN+NW (ISN) 

M J=MJ + 1 

I F (MJ .EQ, Ml ( ISM) ) MJ = 1 
IF ( J .LT .M AX) GO TO 15 
ISM=ISM+1 

IF (J .EGl. LPAN1 .OR. J .EQ. LPAN2) ISM = 1 
M AX = MAX+ (M 1.(1 SM)-1 ) *NW< ISN) 

15 CONTINUE 

NW2=NW(1 )+NW(2) 

IF (NW(2).EQ.0) GO TO 62 
I 1 = 1 +NCS 

I F (NW(3), NE.O) GO TO 69 
CHORO=CH(1 )+CH(II) 

X XI =CH ( 1 ) / CHOR 0 

THET A1 =ARC OS (1 , -2. *XX 1 ) 

THETA2=PI 
GO TO 63 
69111=11+ NCS 

CH0R0=CH(1 )+CH(II)+CH(III) 

XX1=CH (1 )/CH0RD 
THETAI =ARC0S(1 .-2. +XX1 ) 

X X2=(CH(1) +CH( I I))7CH0R0 
THETA2=ARC0S( 1 .-2. *XX2) 

GO TO 63 

62 CH0RD=CH(1 ) 

63 CONTINUE 

00 61 J=1/NCW 
I F (NW(2).EQ.O) GO TO 6A 
IF (J.LE.NWd)) GO TO 64 
IF ( J.GT .NW2) GO TO 59 
L L=LPAN1 *J -NW ( 1 ) 

GO TO 65 

59 L L=LPAN2+J -NW2 
30 TO 65 

64 LL=J 

65 CONTINUE 
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XCK= (XV(LL)-XLE( 1) ) /CHORD 
XCI= (XCPCLL )-XLE (1 0 ) / C hORD 
THETAI ( J )= ARCOS (1.-2.* XC I) 

THETAKC J)=AR COS <1.-2.* XCK) 

61 continue 

DO 13 K=1/NCW 
DO 13 J=T^NCW 
FM=NCW 

C X(K^J ) =1 . /FM* (-1 . ) ** ( K+J ) *SIN(THETAK ( J ) ) / (COS (THET A< ( J) ) -COS (THET 
1 AI(X))) 

13 continue 
ICA=ICW 

CALL SETDIM (CX/ICAylCA) 

CALL HEMINV ( C X # IC A # 8 0 AD N ) 

C STORE THE INTERPOLATION MATRIX IN THE COMMON BLOCK CCX(I) 

DO 13 1 = 1 ^ NCW 
DO 18 J=1#NCW 
I K=( 1-1 ) *N CW + J 
18 CCX(IK)=CX (I#J) 

RETURN 

END 

LINK LINK11 
FORTY 

S LIMITS /31K 

$ INCODE I6MF 

SUBROUTINE 6 EO M T Y ( K C 0 D E) 

C TO SET UP THE GEOMETRY OF THE VORTEX ELEMENTS AND CONTROL POINTS 

DIMENSION XXL< 5) /YL( 5) /XXT (5) /ZL( 5)^CPCWL (31 ) ^ CPSWL (31 ) 

COMMON /AERO/ AM 1 / AM2 < El / 8 2^ C L ( 30 ) # C T ( 30 ) / C D ( 30 ) / 6 AM < 2^ 1 00 ) 

COMMON /ADO/ CP<100)/CM<30)^BREAK(8)/SWP(8/15)/6AL(30)/ISYM/VMU/-VU 
WTEMP^FCR/CAMLER^CAMLET/CAMTER#’CAMTET,XJ>YJ/ZJ,RJ#’ALP^CREF/TWISTR 
C OMMON /CONST/ NCS^NCW/M1(8)^NSJ^NCJ(5)/-LAST#MJWl(3^5>/MJW2(3/5)^J 
1PANEL/MJJ ( 5) ^NW<3) /NNJ /NJP 

COMMON /COST/ LTCTAL^LFAN1^NJW(5)/LPANEL/IENTN^LPAN2/’EXIT,PTIAL/TW 
11 ST^DF ( 5 ) /NFP 

COMMON /PARAM/ A LP T / A L PC / A LPS / C DF , SD F /• TH / TD F 

C CMMON /GECM/ HALFSW^XCP<200)^YCP(200)/ZCP(200)^XLE(50)^YLE(50)/XT 
1 E (50) /PS I (20)/CH(95)/XV(200)/YV(1 00) /SN( 8/8)/XN(200/2) /YN (200/ 2) / 
2ZN(200/2)/WIOTH(8)/YCCN(25)/SWEEP(50)/HALFB/SJ(21/S)/EX(95/2)/TX( 
39 5/2) /SC (1 60/5 ) /SI (160/5 )/LC( 3) 

COMMON /SCHEME / C ( 2 ) / X ( 1 0/ 4 1 ) / Y < 1 0 / A 1 ) / S LO PE ( 1 5 ) / X L ( 2 / 1 5 ) / XTT ( 4 1 ) / 
1XLL (41 ) 

1 FORMAT (3( I4/6X) ) 

2 FORMAT (8( FI 0. 5)) 

3 FORMAT (8(6X/I4) ) 

4 FORMAT (10X/8HHALF SW = /E 1 2 , 5 / 1 OX/ 5 HC R E F = / E 1 2 . 5 ) 

5 FORMAT (6(F10.5)) 

6 FORMAT (2(6X/I4)/7F10. 5) 

3 FORMAT (13HCASE NUMBER =/I2) 

400 F0RMAT(1h0/10HINPUT DATA) 

402 FORMAT! 1 HO/ 'LPANEL = */ I3/3X/*JPAN£L = ’/ I 3/3X/’LAST='/I3/3X/' LTOTAL=* 
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UI3) 

403 FORMAT ( 1 H0^36HV0RTEX ELEMENT ENDPOINT C 00 RO 1 N A T E S =) 

610 FORMAT (1«0/'X1’/3X/'X2'/8X^'Yl*/8X/'y2'/8X/'Zl'^8X,'Z2’/.8X) 

404 FORMAT( 1 H0#26HC0NTR0L PO I N T C 00 RD I NA T E S= ) 

620 FORMAT ( Ifl 0 / ' X C P ' ^ 7X * YC P ' # 7X ^ * Z G P ' ^ 7 X / ' X C P ' ^ 7 X / ' Y C P ' ^ 7 X ^ ' Z C P ' > 

405 FORMAT( 1 HQ,42HwARNING. THE EQU IVA LENT JET MACH NUMB ER I F 1 0. 5/ 41 H 
II T HAS BEEN SET TO 0.9 IN THE COMPUTATION) 

29 FORMAT (1h0^46HTHE EQUIVALENT JET PROPERTIES ARE EVALUATED AT/FIO. 
*5) 

30 FORMAT (1H0/28HTHE EQUIVALENT JET RADIUS IS/F10.5) 

36 FORMAT (/20X/50HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX) 
32 FORMAT (1H0/49HTHE VELOCITY RATIO OF THE EQUIVALENT J ET ^ VO / V J / I S/ F 

*10.5) 

37 F0RMAT(/20X^46HTHE JET HAS NOT WASHED THE WING. AN EQ UI V AL ENT / 2 OX 
143HCIRCULAR JET IS USED F 0 R I N T ER A C T I 0 N COMPUTATION) 

38 FORMAT ( /20X/51 HTHE JET HAS WASHED THE WING. A RECTANGULAR JET WITH 

1 /20X^42HLATERAL EXTENT EQUAL TO THE EQUIVALENT J E T / 20 X ^ 44 H D I A M E TE R 

2 IS USED FOR INTERACTION COMPUTATION) 

39 FORMAT (720X^51 HNOTE. CHECK WHETHER THE WING IS IMMERSED IN THE JET 
1 ) 

WRITE (6/400) 

P 1=3. 141 59265 
NCS = 0 
KL = 0 
IPANEL=1 
RT=0.0 
00 28 1=1/5 
23 0 F < I )sQ. 

C 

C */*MACH numbers of FREESTREAM and jet FLOW/ FREESTREAM/J ET VELOCITY 
C R ATI0/JET7FREESTREAM TEMPERATURE RATIO/ANGLE OF ATTACK IN DEGREE./ 

C WING L.E. AND T.E. X- C 00 R 0 I N A T E S AT THE JET AXIS LOCATION*** 

READ (5/2) AMI /AM2/VMU/TEMP/ALP/XEL/XET 
WRITE (6/2) AMI / AM2/VMU/TEMP/ALP/ XEL /X ET 
C 

C ***NUM3ER OF FLAP SECTIONS (INCLUDING THE JET SPAN)/ THE NUMERICAL 
C ORDER OF JET SPAN AND THE CORRESPONDING FLAP DE FL E C T I ON A N GLE S IN 

C DEGREES ** * 

READ (5/6) NFP/NJP/ (DF (I)/ 1=1 /NFP) 

WRITE (6/6) NFP/NJP/ ( D F( I) / 1=1 /NFP) 

C 

C ***REFERENCE HALF WING AREA/ DISTANCE OF FLAP HINGE FROM LOCAL L.E. 

C REFERRED TO LOCAL CHORD/ TWIST IN DEG./ INCIDENCE OF ROOT CHORD IN 

C DEG./ X-/ Y- AND C 0 OR D I N A T E S 0 F JET CENTER AT EXIT/ AND JET 

C RADIUS *** 

C NOTE- FOR USB APPLICATIONS/ YJ/ZJ AND Rj MAY BE/ANY NON-ZERO VALUES, 

C /UNLESS THE RECTANGULAR JET IS NOT ON THE SURFACE AND THE ENTRAIN- 

C MENT EFFECT IS TO BE ACCOUNTED FOR. 

C CREF - MEAN AERODYANMIC CHORD 

READ (5/2) HALFSW/TWIST/TWISTR/XJ/YJ/ZJ/RJ/CREF 
WRITE (6/2) HALFSW/TWIST/TWISTR/XJ/YJ/ZJ/RJ/CREF 
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C 

C ***TRAILINF-EDGE ANGLE IN DEG./ PARTIAL-SPAN FLAP INDICATOR (=0. FOR 
C NO OR FULL-SPAN FLAP^ AND =1. OTHERWISE)a CONFIGURATION INDICATOR 

C (=1. FOR USB^ AND =0. FOR OWE) 

C NOTE FOR U SB APPLI CAT I CNS^ TEAN6L MAY BE ANY VALUE * 

READ (5^2) TEANGL/PTI AL#USB 
WRITE (6/2) TE ANGL/PT I AL/USB ■ 

CAMLER=0. 

CAMLET=0. 

CAMTERsO. 

CAMTET=0. 

C 

IUSB=US8 

DFJ=0. 

CMU=0, 

C * THE FOLLOWING DATA ARE NOT NEEDED FOR OWB APPLI C AT IONS * 

I F ( lUSa . NE . 1 ) GO TO 1 98 
C 

C *** THRUST COEFFICIENT/ JET D £ FL E C TI 0 N A NGLE IN DEG. AND ENTRAINMENT 
C CODE IF THE RECTANGULAR JET IS NOT ON THE WING SURFACE (=1. IF THE 

C ENTRAINMENT DUE TO AN EQUIVALENT ROUND JET IS TO BE INCLUDED/ =0. 

C OTHERWISE) 

READ (5/2) CMU/DFJ/TNJ 
WRITE (6/2) CMU/DFJ/TNJ 
C 

198 CONTINUE 

0FJ=DFJ*PI/180. 

DO 25 1*1/5 

25 DF(I)*DF(I)*PI/180. 

TOF*DF(NJP) 

ALP® ALP*PI /I 80, 

ALPS®SIN (ALP) 

ALPC=C0S (ALP) 

ALPT=ALP5/ ALPC 
D E=T£ANGL* PI /I 80.+T0F 
I F (IUS3 , EQ. 1 ) COF = OFJ 
E XIT=0 , 

I F (XJ ,GT. XEL) EXIT=1. 

XEL=(XEL-X J)/RJ 
X ET= (XET-X J )/R J 
Z=ZJ/RJ 
TH*0. 

M1(4)=0 
. I TN=TNJ 
YC0N(23)=TNJ 

- — -1-F (-IUS3 , EQ. 1._ .AND. ITN . EQ , 0) GO TO 199 

CALL ENTRN ( VMU/ AM 2 / T E MP / XM /C U / RT / XE L / XE T y. z ^ KC 0 DE / X J C ) 

XEQUI=XM*R J+XJ 
REQUI=RT*R J 
R T = R EQUI 

I F ( IUS3 . EQ. 1 ) GO TO 1 99 
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IF (XEL .LT. 0, .A, NO. ZJ .GE. (2.*RJ)) KCODE=0 
IF (ZJ .GE. (3.*RJ)) KCODE=0 
F 1=-29.5428*CU*CU+33.7371*CU-8.91 48 
IF (CU .GT. 0. 6339) F 1 =0 . 6 + 0 . 4 * (C U-0 . 633 9 ) /O. 3 66 1 
IF (FI .;LT. 0. .AND. ZJ .GE. ( 1. 9* R J ) ) K C 0 D E =0 
IF (KCOOf .EQ. 0) GO TC 199 
Z R = Pl*RT/2 . 

TH = ZR 

199 continue 

I F ( IUS3 . EQ. ^ 1 ) KC00E=1 

IF (IUS3 .NE. 1 .AND. KCODE .EQ. 1) GO TO 197 
GO TO 1 96 
197 AX=XEL*RJ 
DJX=2.*RJ 

IF (FI .LT. 0. ) FI =0. 

IF (ZJ .LT. (2.*RJ) .AND. ZJ .GE. (1.5*RJ>) F1=F1+(1.-F1)*(2.*RJ- 
1ZJ)/(0.5*R J) 

IF (ZJ .lT. (1.5*RJ)) F1=1. 

I F ( FI .GT . 1 . ) FI =1 . 

F ACT = F 1 
CDF=OE*FACT 
196 continue 
C 

c *** total NUMBER OF SPANWISE SECTIONS^ AND THE NUMBER OF VORTEX 
C STRIPS IN EACH SECTION PLUS 1 *** 

C * THE NUMBER OF VORTEX STRIPS IN THE JET REGION SHOULD BE CONSISTENT 
C WITH THAT OF JET VORTEX STRIPS * 

READ (5/3) NC/ (Ml ( I)/ 1=1 /NO 
WRITE (6/3) NC/(M1(I)/I=1/NC) 

C 

C ***THE NUMERICAL ORDER OF FLAP AND JET SPANS AMONG THE SPANWiSE 
C SECTIONS *** 

READ (5/3) (NJ W( 1) / 1 = 1 /NFP ) 

WRITE (6/3) (NJW(I)/I=1/NFP) 

C 

C *** number OF CHORDWISE VORTEX ELEMENTS IN C HO R 0 W I SE S EC T I ON S *** 

R E A D ( 5 / 3 ) ( N W ( I ) / I = 1 / 3 ) 

WRITE (6/3) (NW(I)/I=1/3) 

C 

NCW=NW(1) 

L = 1 

105 CONTINUE 
LL = 1 
FN=NCW 

DO 100 1=1 /NCW ' 

F I = I 

CPCWL(I)=0.5*(1.-C0S((2.*FI-1.)*PI/(2.*FN))) 

SN(I/L)=2.*SQRT(CPCWL(I)*(1.-CPCWL(I))) 

100 CPCWL(I)=CPCWL(I)*100. 

DO 10 KK-=1 /NC 
C 
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C *** COORDINATES OF BREAK CHORDS BOUNDING SPANWISE SECTIONS **♦ 
READ (3#2) (XX L( I) »XXT (I) ,YL( I )#I=1 /2 ) 

WRITE (6-r2) ( X XL (I) /XX T( I ) ^ YL ( I)^ 1 = 1 ^2) 

C 

I F ( IUS3 . EQ. 1 ) 60 TO 1 1 3 

IF (ISYf-1 EQ. 0 .AND. KK .EQ. 1) 60 TO 99. 

IF (KK .-EQ. (NJW(NJP)+D) 60 TO 103 

IF (ISYM .NE. 0 .AND. KK .EQ. ( NJ W (N J P ) - 1 ) ) 60 TO 102 
IF (ISYM .NE. 0 .AND. KK .EQ. NJW(NJPT1 GO TO 99 
GO TO 1 1 3 

9 9 XXL(2)=XXL ( 1 )♦ (XXL(2)-XXL( 1 )) *(YL(2)-YL(1 )+RT-RJ) / (YL (2T-yL(1 ) ) 
XXT(2)=XXT(1)+(XXT<2)-XXT(1)>*(YL(2)-YL(1)+RT-RJ)/(YL(2)-YL(1)) 
IF ( ISYM .EQ. 0) 60 TO 104 

103 XXL(1)=XL2 
XXT(1)=XT2 
GO TO 104 

102 XXL(2)=XXL(1)+(XXL(2)-XXL(1))*(YL(2)-YL(1)-RT+RJ)/(yL(2J-YL<1)) 
XXT( 2) = XXT (1 ) + ( XXT (2) - XXT CD) * ( YL ( 2) - Y L ( 1 ) - R T + R J ) / ( YL ( 2 ) - Y L < 1 ) ) 

104 XL2=XXL(2) 

XT2=XXT(2) 

IF (ISYM .EG. 0 .AND. KK .EQ. 1) 60 TO 112 

IF (ISYM .NE. 0 .AND. KK .EQ. ( N J W ( N J P ) - 1 ) ) GO TO 112 

YL(1 )=YL2 

112 IF (ISYM .EQ. 0) 60 TO 101 


I F 

(KK 

.EQ. 

(NJW(NJP)+D) 

GO TO 1 13 

I F 

( KK 

.EQ. 

NJW(NJP)) YL (2) =YL (2) +RT-R J 

IF 

(KK 

.EQ. 

(NJ W(NJP)-I) ) 

YL(2)=YL(2)-RT+RJ 

60 

TO 

111 



I F 

(KK 

.EQ. 

1) YL(2)=YL(2)+RT-RJ 


1 1 1 YL2 = YL (2) 

, 1 1 3 CONTINUE 
F M = M1 (KK) 

NSW=M1 (KK) 

DO 120 J=1 /NSW 
FJ=J 

CPSWL( J ) =0.5* ( 1 . -COS ( ( 2. *FJ-1 . )*PI/(2. *FM) ) ) *100. 
y CON ( J )=0. S-'C 1 . -COS (F J *PI/FM) ) 

S J (J /KK)=SIN( FJ*PI /FM) 

1 20 CONTINUE 

IF (KK . EQ . NO GO TO 130 
CPSWL( 1 ) =0. 

CPSWL(NSU)=100. 

GO TO 135 
130 CPSWL(1)=0. 

135 IF (KK .EQ. NJW(LL)) MJWl (L/LL) =I PANEL 

1 F-(KK^ .,E_Q. JNJ W (NJ P) ) LC (L)=KL-H 

LR=( L-1 ) *NC + KK ' - — _ 

CALL PANEL(XXL/YL/XXT/ CP C WL / C P S WL / NS W / I P AN EL / LP ANEL /K L /L R / S WP ) 
I PANEL=LPANEL+ 1 
NCS=NCS+NSW-1 . 

W IDTH(KK)- YL (2 )-YL (1 ) 
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3REAK(KK )=YL( 1 ) 

IF (K< .tQ, NJW(LD) MJW2(L#LL)=LPANEL 
I F (KK ,NE. NO GO TO 10 
H ALFB = YL (2 ) 

10 IF (<< ,EQ.. NJW(LD) LL = LL + 1 
IF (L ,E0. 3) GO TO 10? 

IF (L .EQ. 1) LPAN1=LPANEL 
IF (L ,EQ. 2) LPAN2=LPANEL 
IF (NW(2) .EQ. 0) GO TO 106 
L=L + 1 
NCW = N-J(L) 

IF (L .EQ. 3 .AND. NW ( 3) .EQ. 0) 60 TO 108 
GO TO 105 

106 00 23 I=2i-3 

00 23 J = 1/.NFP 
•^JW1(I/J) = 0 

23 MJW2(I^J)=0 
LPAN2=LPANEL 
NCS=NCS*3 

GO TO 107 

108 DO 24 1=1/ NFP 
MJw1(3/I)=0 

24 MJw2(3/I)=0 
L = L-1 

NCS=NCS+NCS/2 

107 CONTINUE 
NCS=NCS/3 

NCW-N/K1 )+NW(2)>NW<3) 

VU=VMU 

IF (lUSB .EQ. 1) CU=VMU 

V?'U = CU 

RTJ=RJ 

ZJT=ZJ 

IF (RT .GT. ZJ .AND. <COOE .EQ. 0) ZJT=RT 
IF < iuSB . EQ. 1 ) GO TO 109 
Af^2 = A:'11 / (VMU* SORT (TEMP) ) 

IF (AM2 .GT. 0.9) WRITE (6/405) AM2 

1 F ( AM2 .6 T . 0.9) AM2=0.9 

109 CONTINUE 
LAST=LPANEL 

C 

C *** TOTAL NUMBER OF STREAMWISE JET SECTIONS/ NUMBER OF JET CIRCUM- 

C FERENTIAL STRIPS PLUS ONE( USE ODD NUMBERS FOR A NON-CENTEREO JET 

C AND EVEN NUMBERS FOR A CENTERED JET)/ AND NUMBERS OF JET VORTEX 

C ELEMENTS ON EACH JET SECTION *** 

READ (5/3) NNJ /NSJ / (NC J ( I) / 1 = 1 /NN J ) 

WRITE (6/3) NNJ/NSJ/(NCJ(I)/I=1/NNJ) 

C 

IF (KCOOE .EQ. 0) CALL C I R C J ( I S YM / NS J / Y ) 

IF (ISYM .EQ. 0) NSJJ=NSJ/2 
IF (ISYM .NE. 0) NSJ J = (NSJ +1 ) /2 
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N SYM = 1 - I SY.y 
NSJ1=NSJJ-1 
FNJ=NSJJ 
CPSWL(1)-=0. 

CPSWKNS.JJ )=1 . 

Y CON (1 )=0, 5* (1 .-COS (P I /FNJ ) ) 

00 33 I=2/NSJ 1 ; . 

FI = I 

CPSWLCI ) =0.5*( 1 .-COS( ( 2. *F 1-1 . )*PI /(2 . *FNJ) ) ) 

33 YCON(I)=0. 5»(1 .-COS(F I*PI/FNJ)) 

IENTN=NC 
JC=NCS*L 
NJ1=NNJ-1 
DO 11 J J=1 ^NNJ 
I F ( lUSa . E«. 1 ) 60 TO 1 22 

*** COORDINATES OF BOUNDING LINES OF JET SECTIONS PROJECTED ON X-Y 
PLANE *** 

READ ( 5 , 2 ) (XXL ( I) rXX T (I ) / YL ( I )^I =1x2) 

WRITE (6x2) (XXL(I)xXXT(I)xYL(l)xl=1x2) 

I F ( ISYM . EQ. 0) 60 TO 93 

XL1=XXL(1)-(XXL(2)-XXL(1))*(RT-RTJ)/(YL(2)-YL(1)) 
XT1=XXT(1)-(XXT(2)-XXT(1))*(RT-RTJ)/(YL(2)-YL(1)) 

98 XL2=XXL(1)+(XXL(2)-XXL(1))*(RT+RTJ)/(YL(2)-YL(1)) 

X T2 = XXT ( 1 )+(XXT(2)-XXT(D) * ( R T + RT J ) / < Y L ( 2 ) - Y L ( 1 ) ) 

IF (ISYM .EQ. 0) GO TO 97 
XXL(1)=XL1 
XXT(1)=XT1 
97 XXL(2)=XL2 
XXT(2)=XT2 

1 F ( ISY:1 . EQ, 0) GO TO 96 
YL (1 )=YL (1 )-RT+RTJ 

96 YL(2)=YL(2)+RT-RTJ 

IF (KCODE .EQ. 0) GO TC 13 
XXL(A)=XXL (2) 

XXT(4)=XXT (2) 

YL(4)=YL(2) 

X XL( 2) = XXL (1 ) 

XXT(2) = XXT (1 ) - 

YL(2 ) =YL (1 ) 

X XL(3) = XXL (A) 

X XT( 3) = XXT (4) 

YL(3)=YL(4) 

ZL(1)=0. 

Z L ( 2 ) = Z R 

ZL(3) = ZR ““ ~ 

ZL(4)=0. 

1 3 CONTINUE 
GO TO 1 21 
C 


91 



02-1 3-7S 


02.1 77 


C ***C00R0INATES OF BREAK POINTS DEFINING RECTANGULAR JET SECTIONS FOR 
C USB CONFIGURATIONS*** 

C 

122 DO 123 1=1 /4 

READ (5,2) XXL ( I )/XXT ( I) /YL(I ) /ZL { I) 

123 WRITE (6,2 ) XX L ( I) ,XXT (I ) , YL( I ),ZL ( I ) . 

121 CONTINUE . 

II=JJ 
J J1=JJ+L 
FNCJ=NC J (JJ) 

NJ=NCJ(JJ) 

NMJ=NJ*16 

IF (NJ ,GT. 6) NMJ=NJ*8 
FNJ = NMJ 

DO 1000 J=1,NMJ 
FJ=J 

SC(J,JJ)=0.5*(1 .-COS((2.*FJ-1.)*PI/(2.*FNJ))> 

1000 S I ( J,J J ) =S IN( ( 2. *F J-1 . )*PI / (2. *FNJ ) ) 

D012J=1,NJ 

FJ=J 

CPCWL(J)=0.5*(1.-C0S((2.*FJ-1.)*PI/(2.*FNCJ))) 

12 SN (J ,J J 1 ) = 2. *SQRT( CPCWL( J ) * (1 .-CPC WL ( J ) ) ) 

IF (KCODE .EQ. 0) CALL J S H APE ( X XL , XX T , YL , Y J , Z J T ,R T , CP C WL / I P AN E L /N J 
1 / JC,ISY;vi) 

IF (KCODE .EQ. 1) CALL R ES H AP ( X XL , X X T , YL , ZL , C P C WL , C PS WL / I P ANE L , NJ / 
1JC/II,NSYM) 

MJJ(JJ)=LAST 
11 I PANEL=L AS T+1 
21 CONTINUE 

S DF = XXT( 1 ) -XXL (1 ) 

IF (IUS3 .EQ. 1) TH=ZL(3)-ZL(4) 

Y CON (25 ) =Z L(A ) 

YCON(24)=US0 
C ( 1 ) =CMU 

IF (KCODE .EQ. 0) YCON(25)=1. 

IF (KCODE .EQ. 1) CALL R E C T J ( I S YM , NS J , Y ) 

WRITE (6,4) HALFSW,CREF 
J PANEL=LAS T-LP ANEL 
L TOTAL = L AS T + .I PANEL 

WRITE (6,402) LPANEL,J PANEL, LAST, LTOTAL 
I F ( IUS8 . EQ. 1 ) GO TO 124 
WRITE (6,36) 

IF (KCODE .EQ. 0) WRITE (6,37) 

IF (KCODE .EQ. 1) WRITE (6,38) 

IF (KCODE .EQ. 1) WRITE (6,39) 

WRITE (6,36) 

WRITE (6,29) XEQUI 
WRITE (6,30) R EQUI 
WRITE (6,32) VMU 

124 CONTINUE 
WRITE (6,403) 
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WRITE (6^610) 

WRITE (6^5) (XN(I/1 )r XN( I,2)^YN(I ) /YN( W2)^ZN(I/1)/ZN<I/2)^I = 1/L 
1AST) 

WRITE (6,r4C4) 

WRITE (6#620) 

WRITE (6^5) (XCP(I)#YCP(I)/ZCPCI)#I=1 ^LAST) 

IF (KCODE ,EQ. 1) GO TC 2022 
I F ( ISYM . EQ. 0) GO TO 2021 
FN2=<MSJ-1 ) /2+1 
NJH=(NSJ-1 )/2+2 
ANG=PI/ (2. *FN2 ) 

FAC= (SIN(3.*ANG)-SIN<ANG)/C0S(ANG) )/(1 ,-C0S(3.*ANG) ) 
PHI=PI/2.-ATAN( FAC) 

NJH1=NJH-1 

NJH2=NJri+1 

Y (3^2)=SIN(PHI ) 

Y (4/2)=-COS(PHI ) 

Y (3^NJH1 ) = Y<3^2) 

Y (4/NJHl )=-Y(4/2) 

Y(3^NJH2)=-Y(3/2) 

Y <4vNJH2)=Y(4^2) 

Y(3/NSJ1 )=-Y< 3^2) 

Y (4,.NSJ1 )=-Y(4/2) 

GO TO 2022 

2021 FN2 = fJSJ/2 
NJH=NSJ/2 

ANG1 =1 .-0. 5* ( 1 .-COS <P I /< 2. *FN2) )) 

ANG3=1.-0.5*(1 .-C0S<3. *PI/<2,*FN2))) 

ANG1 sATAN(SQRT< 1 .-ANG1 *ANG1 )/AN6l ) 

ANG3=ATAN(SQRT (1 .-ANG3 *ANG3)/ANG3) 

FAC=(SIN<ANG3)-SIN(ANG1)/C0S(ANG1))/(1.-C0S(ANG3)) 

PHI=PI/2 ,-ATAN( FAC) 

NJH1=NJH-1 

NJH2=NSJ1 

Y (3/NJHl ) = SIN( PHI) 

Y (4/.NJH1 )= COS ( PHI) 

Y <3/NJH2)=-Y( 3#NJH 1 ) 

Y (4/NJH2) = Y(4^NJH1 ) 

2022 CONTINUE 
FNJ=NCJ (NNJ) 

NPJ=NCJ(NNJ) 

00 777 J=1#NPJ 
FJ=J 

777 PSKJ)=SIN(FJ*PI/FNJ) 

22 continue 

BETA1=SQRT (1 .-AM1*AM1 ) 

“■BETX2=SQRT-(n-AM2*“AM2i 

B 1=BETA1 *BETA1 , 

B2=BETA2*BETA2 
00 9 51 K<= 1 /NC S 

XLL(K<) =AL P+(T WISTR + TUf IS T*YLE(KK) /HALF 8) *PI /I 80. 
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T=XLL(K<) 

951 XTT(KK)=SIN(T)/CCS(T) 

RETURN 

END 

$ FORTY 

$ INCOOE IQMF 

SUBROUTINE RE S H A P ( X XL / XX T / Y 2 L^C PC WL / C PS WL / IP A NE L / NJ / J C ^ J J y N S Y M) 

C TO DEFINE THE LOCATIONS OF VORTEX AND CONTROL POINTS ON RECT. JETS 

DIMENSION XXL(1)^YL(1 )/XXT<1)^ZL(1)/CPCWL(1)^CPSWL(1) 

COMMON /CONST/ NCS/NCU/M1(8)^NSJ^NCJ(5)^LAST/MJW1 (3^5)^MJU2<3/51/J 
1 P ANEL/MJ J ( 5) ^NW (3) ^NNJ /NJP 

C CMMON /GEOM/ H A LF S X CP < 2 00 ) # YCP ( 2 00 ) ^ Z CP ( 2 00 ) / XL E ( 5 0) ^ Y L E ( 5 0 ) /X T 
1 E 150) ,PSl ( 20) f CH (95) VC200) ,YV (100) fSN( 8f8),XN(200^2),YN(200,2) , 
2 ZN(200^2T#WI0TH(8)^YCCN<25)^SWEEP(50) /HALFB^SJ (21/8)/EX(95/2)^TX( 
395#2)/SC(1 60^5) /SI (160/5)^LC(3) 

COMMON /SCHEME/ C(2)/X(10/41)/Y(10/A1)/SLOPE(15)/XL(2/15>/XTT(41)/ 
1 XLL(41 ) 

P 1=3.1 41 59265 

IF (NSYM .EQ. 0) NSJJ=(NSJ+1)/2 

IF (NSYM .N£. 0) NSJJ=NSJ/2 

NSJ1=NSJJ-1 

DO 1 J=1/NJ 

FJ = J 

FNJ=NJ 

1 PSI(J)=0.5*(1.-C0S(FJ*PI/FNJ)> 

DO 2 IS=1/4 

IF (NSYM .EG. 1 .AND. IS .EQ. 1) 60 TO 2 

I F ( IS .EQ. 41 GO TO 6C 

K1=IS 

K2 = IS + 1 

60 TO 61 

60 K1=1 
K 2 = 4 

61 CONTINUE 

S PAN=YL (<2 )-YL (K1 ) 

X DI F = XXL (K 2)-X XL (K 1 ) 

DO 31=1/2 
II=I+K1-1 

IF (IS .EQ. ^ .AND. I ,EQ. 2) 11=4 

C (I)=XXT(I I)-XXL(I I) 

DO 3 J=1 /N J 

3 XL(I/J)=XXL(II)+CPCWL(J)*C(I) 

IF (ABS(SPAN) .LE. 0.0C1) GO TO 10 
DO 25 J=1/NJ 

25 SL0PE(J) = (XL(2/J)-XL(1 /J))/SPAN 
DO 30 K=1/NSJJ 
YK=CPSWL (K ) *SPAN 
DO 30 J=1/NJ 
Y (J/K)=Y<+YL(K1 ) 

X ( J/K) =XL ( 1 / J ) +SLOPE ( J )* ( Y ( J/ K)-YL (Kl ) ) 

30 CONTINUE 
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NS=NSJ1 

10 IF (.ABS(SPAN) .LE. 0.001) NS = 1 
DC 35 K=1^NS 
YC=YC0N((O 

IF (ABS(SPAN) .LE. 0.001) YC=0.5 
<K = J C + K 

CH(KK)=Cn )-<C(1)-C(2) )*YC 

IF (ABS(SPAN) .LE. 0.0C1) GO TO 70 

YC1=CPSWL(K) 

YC2=CPSWL( K+1 ) 

GO TO 71 

70 YC1=0. 

YC2=1. 

71 CONTINUE 

EX<KK/1 )=XXL(K1 )+XDIF*YC1 
E X(KK/2 )=XXL(K1 )+XOIF* YC2 
TX CKK^I ) =X XT< K 1 ) +( XXT ( K2 )-XXT < K1 ) ) *YC 1 
TX(KK^2)=XXTO<1 )+<XXT ( K2)-XXT(K1) ) *YC2 
DO 35 J=1/NJ 

NPANEL=(<-1)*NJ+J-1+I PANEL 

NPAN1=NPANEL-1 

DO 40 1 = 1,2 

KI1=K+I-1 

IF (ABS(SPAN) .LE, 0.0C1) GO TO 42 
X 1 = X (J/KI1 ) 

Y 1=Y {J/<M ) 

IF ( J .NE. 1 ) GO TO 44 

ZZsZLCKI )+ (2L< <2)-ZL<K 1) )* < Y1 -YL< K1 ) ) /SPAN 
X X=XOI F* { Y 1 -YL (K1 ) ) /SP AN+XXL(K 1 ) 

GO TO 46 
42 IZN=K1 

IF <I .EQ. 2) IZN=K2 
X 1=XL(I^J) 

Y1=YL(K1) 

I F ( J ,NE. 1 ) GO TO 44 
ZZ = ZL( IZN) 

XX=XXL(IZN) 

G0T046 

44 Z2=ZN(NPAN1 /I) 

XX = XN(NPAN1 ^I ) 

46 XN(NPANEL/ I)=X1 
YN(NPANEL/I)=Y1 
ZN(NPANEL^I)=ZZ 
40 CONTINUE 

XD=X0IF*YC+XXL(X1) 

^XCPCNPANEL)-=XO-tXHCXX)*FSjUJ _ _ 

Y CPCNPANEL )=YC*SPAN + YL (K1 ) - - — — ^ 

IF CABS(SPAN) .LE. 0.001) GO TO 50 

ZC=ZN(NPANEL/1)+(ZN(NPANEL#1)-ZN(NPANEL^2))*(YCP(NPANEL)-YN(NPANEL 
W 1 ) ) / ( YNlNPANEL/ 1 ) -YN ( NPANEL^2 ) ) 

XC=XN(NPANEL/1 ) +SLOPE( J)*CY CPCNPANEL) -YN(NPANEL/1 )) 
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GO TO 55 

50 ZC = 0.5*(ZN (NPANEL^1) + ZN(NPANEL^2)) 

XC=0 . 5'»{ XN <NP ANEL/ 1 ) + XN(NPANEL^2) > 

55 Z CP(NPAN£L )=ZC 
XV(NPAMEL)=XC 
35 C ONT INUE 

IPANEL=NPANEL+1 

LAST=NPANEL 

JC*K< 

2 CONTINUE 
RETURN 
END 

$ FORTY 

S INCOOE lEMF 

SUBROUTINE PANEL(XXL/YL#XXT^CPCWL#CPSWL^NSW/IPANEL»LPANEL^KK/'LR^ 
1SWP) 

C TO DEFINE THE LOCATIONS OF VORTEX AND CONTROL POINTS ON THE WING 

DIMENSION XXL(1)^YL(1)^XXT(1)^CPCWL(1)#CPSWL(1) 

DIMENSION SwP(8/15) 

COMMON /CONST/ NCS#NCW^Ml(8)#NSJ/NCJ(5)^LAST/MJw1(3^5)/MJW2(3#5)/J 
1PANEL/MJJ ( 5)^NW(3) /NNJ /NJP 

C OMMON /GEOM/ H A LF S Wx X CP ( 2 OC) ,Y CP 1200) #ZCP(2 00)/XLE(5 0)i-YLE(50)#XT 
1E(50)/PSl(20)^CH(95)yXV(200)>'YV(100)/>SN( 8^8)^XN(2 00/ 2)/YNC200/2)/ 
2 ZN( 200^2) /WIDTH(3)#YC0N<25)/SW6EP(50)/HALFB>.SJ(21^8)^EX(95/-2)/TX( 
395/2)/SC(160^5)/SI(160^5)/LC(3) 

COMMON /SCHEME/C(2)/X(10/41)/Y(10/41)^SL0PE(15)/XL(2^15)/XTT(41)/ 
1XLL<41) 

PI=3. 141 59265 
NSWl*NSW-1 
DO 1 l=),2 
C ( IT =XXT (I )-XX L ( I) 

001J=1/NCW 

1 XL(I^J)=XXL(I)+CPCWL<J)*C(I)/100. 

S FAN = YL ( 2) -YL ( 1 ) 

D02J-1^NCW 

PSI(J)=0,5*(1.-COS(FLOAT(J)*PI/FLOAT(NCW))) 

SL0PG(J)=<XL<2/J)-XL(1/J))/SPAN 

2 SWP(J^LR)=ATAN(SLOPE< J)) 

DO 3 K = 1 /-NSW 
YK=CPSWL(K)*SPAN/100. 

DO 3 J=1 ^NCW 
Y (J /K)=YK+YL( 1 ) 

X(J/K)=XL(WJ)+SL0PE<J)*<YU^K)-YL(1)) 

3 C ONT INUE 

X LL( 1 ) = XXL (1 ) 

X TT ( 1 ) =XXT < 1 ) 

DO 15 1=2^ NSW 

XLL(I)=XLL(I-1)+(XXL(2)-XXL(1))*(Y(1,I)-Y(UI-1))/SPAN 
15 XTT(I)=XTT(I-1) + (XXT(2)-XXT(1))*(Y(1/.I)-Y(1yl-1))/SPAN 
00 6 K=1,NSW1 
KK=-NCS + K 
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YLE(KK)=YC0N(K) *SPAN+YL(1) 

XLE(KK)=XLL<K) +(XLL(K+1)-XLL(K))* (YLE(KK)-Y(I ^K))/(Y(1/K+1 )-Y(1 /K) 
1) 

XTE<K<)=XTTCK) + (XTT<K + l)-XTT(tC) )* ( YL E ( K K ) - Y ( 1 ^ K ) ) / ( Y ( 1 / K + 1 ) -Y ( 1 ) 

1 ) 

CH (KK)=XTE (KK) -XLE (XK ) 

E X(XKv 1 ) =XXL ( 1 ) + (XXL( 2 )-XXL (1 > ) *C PSWL (K> / 100. 

EX<KK^2) =XXL ( 1 )+ (XXL (2 )-XXL (1 ) ) *CPSWL (K + 1 >/1 00. 

T X<KK/ 1 > =X XT ( 1) + (XXT( 2 )-XXT<1 ) )*C PSWL (K)/ 1 00. 
TX(KK/2)=XXT(1)+(XXT(2)-XXT<1))*CPSWL(K+1)/100. 

TAN6=(XXL(2)-XXL(1 ))/SFAN 
SWEEP(KK)=ATAN(TANG) 

DO 6 Jsl/NCW 

NPANEL=(K-1)*NCW +J-1+IPANEL 

DO 5 1=1 /2 

KI1=K+I-1 

A XN(NPANELi» I) = X(J^KI1) 

YN(NPANEL^ I)=Y<J#KM) 

ZNCNPANEL^ I)=0. 

5 CONTI, MUE 

XCP(NPANEL)=XLE(KX)+PSI<J)*CH(KX) 

YCP(NPAN£L )=YLE (XX ) 

2CP(NPAN£L)=0. 

X V(NPANEL) =XLE (XX) +CPC WL ( J) *CH (XX ) /I 00 . 

Y V(NPANEL) =YLE (XX) 

6 CONTINUE 
LPANEL=NPAN£L 
R ETURN 

END 

$ FORTY 

$ LIMITS #28X 

S INCODE IBMF 

SUBROUTINE ENTRN ( U / AM J ^ T , X M/ C MU/’ RT / X E L/ X ET ^ Z / X CO D E /.X J C ) 

C TO COMPUTE THE JET ENTRAINMENT FUNCTION 

DIMENSION CSJ ( 70/ SSJ ( 70) 

DIMENSION PU1 ( 31 )/PU2 ( 31 )/ FU1 (31 ) / FU2 { 31 ) /FU3 ( 31) /RR2 (31 ) 

COMMON /JET/ PX1 /XC/ X ( 31 )/ A(3t ) /8 (51 ) 

C 

55 F0RMAT(8F1 0.5) 

P 1=3.1 41 59265 

IX = 1 
REJ = T 

PX1=0. 0185+0. 011*U 
XC0DE=0 

XMIO=0.5*(XEL+XET) 

X_M = XMID 

X 0=0. 

R0 = 1. 

F=2.*PX1+SQRT((1.-U)*REJ) 

XC=0.35/F 

XJC=XC 


97 



02-18-^78 C2.177 

A62 = AL0G<( 1 , + 2.*U/AK2) /(1 .+U/AK2) ) 

0SXl=2**PKl/0.72-^SQRT (REJ*(1 .-U)*AK2*A62/U) 

0X = X (I )-XH 
S*S+DX*6SX1 
. : M=M+1 
GO TO 10 

5 IF (I .NE. 1) SH=2.*PK1*SQRT(REJ) *X (I)-0,35 
IF (1 .NE. 1) P1=(l.-U)*(1.-EXPf-1./(2.*SH))) 

DSX=2.*PK1 *SQRT(REJ) 

I> (ABS(T-1.) .LE. 0.01) 60 TO 20 
S'=2. *PK 1/0. 72* SORT (RE J )*X( I)-0. 35 

15 IF (I .EQ. 1 .AND. U .GT. 0.01) D S X = 2 . *PK 1 * S QR T < RE J-*A LOG ( U A ) / U ) * 
K.1.-U) 

aO=1.-EXP(-1./(2.*S)) 

H0P=-2. *H0 **2/0. 72 

P 2=( T-1 . +0 .2* < 1 ,-U*U) * AMJ*AMJ * T ) * HO-0 . 2* P 1 * AH J * AM J * T* <P1 + 2 . *U) 

P2P= (T-1 . + Q.2*(1.-U*U)*AHJ*AMJ*T)*H0P-0.2*P1P*AMJ*AMJ *T* (P1 + 2 . *U) 
1-0.2*P1 *AMJ*AMJ *T*P1P 

F 1P=-P2P *0.890 7* (0. 089 01 -0.0400 5* P2+ 0.01 792* P2* *2-0.0 0646 *P2* *3 )/ ( 
11 .+1 .05001 *P2) 

F2P=-P2P*Q .793 35*(0.0 5 27-0.02 886*P2 + 0.014 78*P2 **2-0 .00 589 * P2 * * 3 ) / 
1(1.+1.03869*P2) 

F3P = -P2P*< C.1 2857-0. 04 653*P 2+ 0.01 820 *P 2 * * 2-0 . 00 599* P2 **3 ) / (1 . 
1+1.02272*P2) 

GO TO 25 
20 P2=0. 

P2P=Q, 

F1P=0. 

F2PSQ. 

F3P*0. 

IF (1 .EQ. 1 .AND. U .CT. 0.01) 0 S X= 2 . * PK 1 * S QR T (R E J * A LOG ( U A ) / U ) * 
Ki.-U) 

25 PlP=-2. *P1 *P1 / <1 .-U) 

F1=0.8907*(0.12857+0.01617*P2-0.00607*P2**2+0.00192*P2**3)/(1. 
1+0.8131 7*P2) 

F 2=0. 7933 5* (0. 06676+0. C04 53 *P2-0. 00204*P2**2+0.00075*P2**3)/(1. 
1+0.8571 6*?2) 

F 3 = ( 0.21 42 9 + 0.04 061 *P2 -0.01 249* P2* *2 + 0.00351 *P2** 3) /(I. +0.789 48* 
1P2) 

FU=U*P1 *F1 +P1 *P1 *F2 

0HC1 =(P1 P*F1 + P1 * F1P-U*F2P*F3-U*P2*F3P) /FU 

0MC2=<P1*F1-U*P2*F3)*(U*P1P*F1+U*P1*F1P+2.*P1*P1P*F2+P1*P1*F2P) 

1/ (FU*FU) 

0MX = 2. *(1 .-U) * ( DKC 1-DMC2) *,DSX/SQRT (RE J ) 

RJ2=0.5* (1 .-U) /FU 
R J1=SQRT (R J2) 

WRITE (6/55) X(I)/RJ1/DMX 
I F UK .GT. 1 ) GO TO 28 
IF (X(I) .GE. XEL) GO TO 26 
GO TO 28 

26 IF (RJI .LT. Z) GO TO 28 





Page missing from availabie version 

pa(jc 


02-18-73 02.177 


P1=1 ,-U 

UA=(1 .+2.*U/(1 .-U) )/(1 .+U/<1 .-U)) 

X (1)sXC 

DXX=(3.*XET-XEL) /30. 

I OX=OXX 
DXX^IDX 

I F < OXX .GT. 3 . ) GO TO 1 1 

IF (OXX .GE. 1. .AND. DXX .LE. 3.) OXX =2. 5 
I F (OXX .LT. 1 . ) DXX=1 .5 

11 continue 

X (2)=X (1 ) + 0XX/2. 

0011=2,30 

1 X ( 1+1 ) =X ( I )+OXX 
0021=1,70 

FI = I 

CSJ(I)=COS ((2.+FI-1 .) +FI/140.) 

2 SSJ < I) = S IN ((2. *F 1-1 .) *FI/1 AO, ) 

DO 3 1=1 ,31 

I F (U .LE. 0.01 ) GO TO 5 

IF (I .EQ. 1 .ANO. ABS(T-1.) .LE. 0,01) GO TO 20 

IF (I .EQ. 1) S=(2.*PKl*SQRT(REJ*(1.-U))*XC/0.72-0.35)*SaRT((1.-U) 
1/U*AL0G(UA) ) 


1 F 

( I 

• EQ. 

2) 

S = DSX*(X (2)-XC) 

I F 

(I 

.GT. 

2) 

S = SH + OS X*OXX 

M = 1 





I F 

( I 

.EQ, 

1 ) 

M = 2 


10 CONTINUE 
SUM=0. 

00 4 Js1 ,70 
SB=0.5*S*( 1.-CSJ (J )) 

AP1=(1.-U) *(1 .-EXP (-1 , /(2.*S8) )) 

A6 = AL0G( (1 .+2. +U/AP1 )7 (1 ,+U/APl )) 

4 SUM=SUM+ (1 ./SQRT(AP1*AG)-SQRT(2.*SB/((1,-U)*0.69314718))) *SSJ ( J ) 
R ES=SUM*PI / 70. *0.5 *S*S QR T (U) + sa RT (2. *U/(1.-U))+S* *1 .5 71.0397208 
X1=RES+0.35 

IF (M ,N£. 1) GO TO 30 
XT=X1/(2.*PK1*SQRT((1.-U)*REJ)) 

P 1 = ( 1 .-U)* (1 .-EXP(-1 . / (2 . *S)) ) 

G1=AL0G( (1 .+2.*U/P1)7 (1.+U/P1 )) 

0 SX = 2. *PK1 *SQRT (RE J *( 1 .-U)*P1 *61/U) 

SH = S 

1 F ( A3S(X( D-XT; .LE. C.01) GO TO 35 
OX=X(I)-XT 

S=S+OX*DSX 
S H = S 

G O j:o - i-0^_— _ _______ 

35 PI = ( 1 .-U)* (1 .-EXP(-1 . 7 (2. *SH) ) ) ' ^ . _ 

30 IF (ABS(T-1.) .LE. 0.01) GO TO 20 
XH = X1 *0. 72/ (2. *PK1 *SQR T( (1 .-U) *REJ ) ) 

IF (ABS(X( D-XH) ,LE. C.01) GO TO 15 
AK2=(1 .-U) *(1 .-EXP (-1 . 7(2. *S)) ) 
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X MJ =X0+ ( Z-RO) * ( X (I ) -XO ) / (R J 1-RO) 

IF (XEL .LT. 0) GO TO 29 
IF (XMJ .LT. XET) KCOOE=1 
IK=IK+1 
G0T028 
29 X M = 0.5*XET 

I F (XMJ .LE. XM) KC0DE=1 
IK=IK+1 
28 CONTINUE 
RC=RJ1 
X0=X(I) 

PU1(I)-P1 
PU2(I)=P2 
FU1(I)=F1 
FU2(I)=F2 
FU3( I)=F3 
RR2(I)=RJ2 

I F ( I .EQ. 1 ) GO TO 40 

B ( I) =(DMX- DMXO ) / (X ( 1+ 1 )-X ( I) ) ' 

A < I ) =OMXO- B( I ) *X (I ) 

GO TO 3 

40 A < I) =0. 1 45 *OMX /O. 32 
a’ < I) =< DMX- A< I ) ) /XC 
3 DMXO=OMX 
K = 1 

50 IF (K .GT. 30) GO TO 65 

IF (XM .6E. 0. .AND. X .LT. XC) GO TO 60 
IF (XM .GE. X(K) .AND. XM .LT. X(K + D) GO TO 60 
K=K+1 
GO TO 50 

60 F11=RR2(K)*(PU1(K)*U*FU1 (K)+PU1(K)**2*FU2(K))/(U*U) 
F12=RR2(<+1)*(PU1(K+1)*U*FU1(K+1)+PU1(K+1)**2*FU2(K+1))/(U*U) 
F21=RR2(K)*(PUlOO*FU1(K)-U*PU2(K)*FU3(K))/U 

F22 = RR2(k.+ 1)*(PU1(K + 1)*FU1(K+1)-U*PU2(K + 1)*FU3(K + 1))/U 
IF (ABS(T-1.) .LE. 0.0C1) GO TO 61 

F31=RR2(K)*(9.*PUl(tO/70.-PUl(K)*FUl(K)+U*PU2(K)*FU3(K))/U 
F32=RR2(K+1)*(9.*PUl(K+1)/70.-PUl(K+1)*FUl(K+1)+U*PU2(K+1)*FU3(K+1 
1 ) )/U 

X11=F11/(F21-^F31) 

X 12 = F1 2/ (F22 + F32) 

GO TO 62 

61 F31=0. 

F32=0. 

62 C ONT INUE 
X 1=X (K) 

X 2 = X (K+1 ) 

X21=F11/(F21+F31)+F31*(F11/(F21+F31)-1.)/F21 
X22 = F12/(F22 + F32)+F32* (F12/(F22 + F32)-1 .)/F22 
X31=2.*F21*(F21+F31)/(F11-F21-F31) 

X 31=SQRT(X31 ) 

X32=2.*F22*(F22+F32)/(F12-F22-F32) 
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X 32=SQRT (X32) 

IF ( XM .G£. 0. .AND. XM .LT. XC) GO TO 70 
GO TO 75 • 

70 X1=0. 

X2 = XC 
X22=X21 
X32=X31 
X21=1./U 
X12=X11 
X31=1. 

IF (A8S(T-1.) ,LE. 0.001) 60 TO 75 
X11=1./(T*U) 

75 CMU=X21 + <XM-X1 ) *<X22-X 21 ) / (X2-X1) 

RT=X31 + ( XM-X 1 ) * (X32-X 3 1) / ( X2-X1 ) 

C«U=1./CMU 

IF (ABS(T-1.) .LE. O.OCD go to 63 
RU=X 1 1+ ( XM-Xl ) * ( XI 2-X 1 1)/(X 2-X1 ) 

t=i . / ( Ru) 

WRITE (6^55) T,CMU^RU/XM 
63 continue 
65 continue 
RETURN 
END 

forty 

INCOOE IBMF 

subroutine RECTJ (1 SYM^NSJ/Y ) 

C TO DEFINE THE UNIT NORMAL VECTORS TO THE SURFACE OF RECTANGULAR 

C JETS 

DIMENSION Y <10 / AD 
I F < ISYM , EQ. 0) GO TO 1 
NSJ1=NSJ+1 
N JH= (NSJ -1 ) /2+2 
GO TO 5 
1 NS J 1 =NSJ-1 
NJH=NSJ/2 
5 DO 10 I=1/NSJ1 

IF (I .EQ. 1, .AND. ISYM. NE.OIGOT 015 
IF (I .EQ. NJH) 60 TO 20 
Y (3/1) =1 . 

Y (A/I)=0. 

GO TO 10 
1 5 Y (3 / I) =0. 

Y (A/I)s-1. 

GO TO 10 
20 Y(3/ 1) =0. 

Y(A/I)=1 . _ ^ _ 

10 e-ONT TNUE- ’ — _ ^ - 

RETURN 

END 

$ forty 

$ IN CODE IBMF 
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subroutine CIRCJ (ISYM^rNSJ/Y) 

e TC DEFINE THE UNIT NORMAL VECTOR TO THE SURFACE OF CIRCULAR JETS 

0 IMENSION Y(10/-41) 

PI = 3. 141.59 265 

I F (ISYM . EQ. 0) GO TO 201 4 

NSJ 1 =NSJ+1 

NN=(NS J-1) /2+1 

FN2=NN 

NJHPNN+1 

Y (1/1)=-S1N(PI/ (2. *FN2)) 

Y (2/1)=-COS(PI/(2.*FN2)) 

GO TO 2013 

2014 Y (U 1) =1 . 

Y(2,1)=Q. 

NSJ1=NSJ-1 

FN2=NSJ/2 

NJH=NSj/2 

2013 CONTINUE 

0013I = UNSJ1 
K = I 
K I = I 

IF (I ,GT, NJH .AND. ISYM .NE. 0) K=I*NJH+1 
IF (I .GT. NJH .AND. ISYM . EQ . 0) K=I-NJH 
F r=< 

IF nSYM ,NE. 0) ANG2 = (FI-1 .) *PI/ FN2 
IF aSYM ,EQ. 0) AN62*FI*PI/FN2 
YP=0,5*(1,-C0S(ANG2)) 

IF (ISYM ,EQ. 0) ANG2=FI-ATAN(SQRT(1 ,-YP*YP)/Yp) 

11 = 1+1 
KK = I 
K I I=I I 

IF (I .GT. NJH) KK = II-rjH 
F II=<K 

IF (I .LE. NJH .AND. ISYM .EQ. 0) FII=KK+1 
ANG1 =( 2 . *F I 1-1 . ) *P I / ( 2 .*FN2 ) 

YP=0 . 5* ( 1 . -COS ( ANG 1 ) ) 

IF (ANG1 .GT. PI) YP=-YP 

IF (ISYM ,EQ. 0) ANG1=PI-ATAN(SQRT(1 .-YP+YP) /YP) 

IF (I .GT. N JH ) GO TO 201 5 
GO TO 2016 

2015 ANG1=-ANG1 
ANG2=-ANG2 

2016 CONTINUE 

Y (1 ^KI I )=S IN(ANG1 ) 

Y(2^<II)=-C0S(ANG1 ) 

Y(3/KI)=SIN(ANG2) 

Y (4/-KI )=-C0S( ANG2) 

13 continue 
RETURN 
END 

$ FORTY 
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S INCODE I BMF 

SUBROUTINE JSHAPE(XXL#XXT/YL/YJ^7J/RJ/CPCWL^IPANEL/NJ^JC#ISYM) 

C TO DEFINE THE LOCATIONS OF VORTEX AND CONTROL POINTS ON CIRCULAR 

C J E T S 

DIMENSION CPCWL(I) /XXL (1)^XXT(1),YL(1 ) , 

COMMON /CONST/ N CS / NC W /M 1 ( 8 ) / N S J / NC J ( 5 ) / L A S T / M J W1 ( 3 /5 ) / MJ W 2 ( 3 / 5 ) / J 
IPANEL/MJJ (5)/NW(3)/NNJ /NJP 

COMMON /GEOH/ H A L F S W/ X CP < 2 00 ) / Y CP ( 200 ) / Z C P ( 200 ) /XL E ( 5 0 ) / Y L E ( 5 0 ) /X T 
1E(50)/PSI(20)/CH(95)/XV(200)/YV(1 00) /SN( 8/ 8 ) / X N ( 2 00/ 2 ) / Y N ( 200 / 2) / 
2 2N( 200/2) /WIDTH(8) /YCCN(25)/SWEEP(50) /HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2 ) /SC (1 60/5) /SI < 160/5) /LC( 3) 

COMMON /SCHEME/ C ( 2 ) / X < 1 0/ 4 1 ) / Y ( 1 0 / 41 ) / S LO PE ( 1 5 ) / X L ( 2 / 1 5 ) / XTT ( 4 1 ) / 
1 X LL (41 ) 

PI = 3. 1 41 59265 
N1=NSJ+1 

IF (ISYM .EQ. 0) N1=NSJ-1 
N2=N1+1 

IF(ISYM.EQ.0)N2=NSJ 
Nl2=Nl/2+2 

IF (ISYM .EQ. 0) Nl2=NSJ/2+1 
DO 1 1=1 /2 
C (I)=XXT(I )-XXL (I) 

D 0 1 J = 1 / N J 

1 XL( I/J )=XXL< I) +CPCWL( J )*C( I) 

DO 2 J=1 /N J 
FJ=J 
FNCJ =NJ 

PSI(J)=0.5*(1 .-CaS(FJ*PI/FNCJ)) 

‘2 SL0PE(J)=(XL(2/J)-XL(1 /J))/<2.*RJ) 

DO 3 K«1/N2 
Y YsY (2/K) 

IF (ISYM .NE. 0_.AND. K_.EQ. 1) YY=-1. 

IF (ISYM .NE. 0 '.ANO.“k~TEQ. 2) YY=-1, 

IF (K .EQ. (N12-1) .OR. K .EQ. N12) YY=1. 

I F (K .EQ. N2) YY=1 . 

X TT ( K) =Y J+ RJ * YY 
DO 3 J=1 /N J 

3 X (J/K)=XL(1/J)+SL0PE( J )*(XTT(K)-YL(1 )) 

DO 6 K = 1 /N 1 
KK=JC*K 
L = K 

I F (K . EQ. N1 2 ) L=1 

EX(KK/1)=XXL(1) + (XXL(2)-XXL(1))*(XTT(L)-YL(1 ))/(2.*RJ) 

E X(KK/2)=XXL(1 ) + (XXL( 2 )-XXL (1 ) ) *(XTT (K + 1 )-YL (1 ) )/(2 .*RJ ) 
TX(KK/1)=XXT(1 ) + (XXT(2)-XXT(1) )*(XTT(L)-YL(1 ))/(2.*RJ) 
TXO(K/2 )=XXT(1 )->-(XXT ( 2 )-XXT (1 ) ) *( XTT(K + 1)-YL(1))/(2.*RJ) 

C H(KK) =C (1 )-(C (1 )-C (2 ) )*0.5*(1 . + Y (4/K) ) 

DO 6 J=1/NJ 

NPANEL = (K- 1 ) *NJ + J- 1 +I PANEL 
DO 5 1=1/2 
K II = K+ 1-1 
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SIGN=1i 

IF “(K .^Gis N12 .AND. I .EQ. 1) KI1=1 . 

I F ( ISVM i EQ. 0) GO TO 21 

I F (Kl1 . EQ. 1 .OR. KI1 .EQ. 2) GO to 20, : 

GO TO 22 

21 IF (K .EQ. N1 2 .AND. KI1 .EQ. 1) SI6N = -1. . 

22 C ONT INUE 

IF (KI1 .EQ. (N12-1) .OR. KI1 .EQ. N12) GO TO 25 
I F (KI i <EQ. Nl2) GO TO 25 
Y Y=Y (2/KI1 ) 

ZZ = Y(1^KI1 )-^SIGN 
GO TO 30 
20 YY=-1. 

ZZ = -Y(1,KI 1)/Y (2^KI1 ) 

GO TO 30 
25 YY=1. 

Z Z = Y (1 II ) /Y ( 2^KI 1 ) 

30 CONTINUE 

XNCNPANEL^ I)=X <J>KI1) 

YN(NPANEL^ I)=Y J+RJ *YY 

5 ZNINPANEL/ I)=ZJ+RJ *ZZ 
YK = 0. 5* < 1 . +Y ( 4 /K )) 

IF (ISYM .EQ. 0) YK=2.*YK-1. 

XGPCNPANEL )=XX L <1)+(XXL(2)-XXL(1))*YK + PSI(J0*CH{<K) 

IF UBS(YN<NPANEL^2)-YN(NPANEL^1) ) .LE. 0.0001) GO TO 10 
YCP(NPANEL)=YL (1 ) + YK* ( YL(2)-YL(1) ) 

ZCP(NPANEL) = ZN(NPANEL>.1)*(ZN(NPANEL/2)-ZN(NPANEL/1))*(YCP< NPA N ED- 
IT N(NPANEL>i) )/(YN(NP an el /2)-YN(NPANEL^D) 

GO TO 15 

10 ZCP<NPANEL)=ZJ 

YCP<NPAN£L) = YN (NPANEL ^ 1 ) 

15 CONTINUE 

XV<NPANEL)=XXL(1)+<XXL(2)-XXL(1))*YK+CPCWL(J)*CH(KK) 

6 CONTINUE 
JC=JC+N1 
LAST=NPANEL 
RETURN 

END 

$ LINK L INK22/LI NKI 1 

$ FORTY 

$ LIMITS ^27K 

$ INCODE IBMF 

SUBROUTINE JETOFF 

C TO SET UP THE JET OFF INFLUENCE COEFFICIENT MATRIX AND COMPUTE THE 

C C AMBER TER MS 

DIMENSION AW (101) 

COMMON /AERO/ AM 1 / AM2 / El / B 2 ^ C L ( 30 ) ^ C T ( 30) /• C 0 ( 30 ) ^ G AM ( 2 ^ 1 00 ) 

COMMON /ADO/ C P ( 1 0 0 ) ^ C M ( 30 ) ^ 8 R E AK ( 8) ^ S WP ( 8^ 1 5 ) / G A L ( 30 ) / I S Y M ^ V M U /V U 
1/TEMP#FCR^CAMLER^CAMLET/CAMTER/CAMTET/XJ/.YJ^ZJ/’RJ/ALP^CREF,TWISTR 
COMMON /GEOM/ HALFSW^XCP(2G0)/YCP(200)^ZCP(200)/XLE(50)/'YLE(50)^XT 
1E(50)#PSI(20)/CH(95)<-XV(200)^YV(100)xSN( Sx8)/XN(200/2)^YN(200#2)/ 
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’^G = NW(1) 

IF (ABS01-82) .LE. 0 . G0 1 ) GO TO 208 
I F ( IC .LE . 2) GO TO 2C9 
208 CONTINUE 
RETURN 
END 
FORTY 

INC ODE IBM F 
SUBROUTINE JETON(KCODE) 

C TO SET UP THE JET ON INFLUENCE COEFFICIENT MATRIX 

DIMENSION AW(300) 

COMMON /GEOM/ H A LF S X CP ( 200) /• Y CP ( 200 ) / 2 C P ( 2 00 ) / X L E ( 5 0 ) ^ Y L E( 5 0 > T 
1E(50)/PSI(20)/CH(95)^XV<200)/YV(100)/SN(8^8)/XN(200^2)^YN(200/2)^ 
2 ZN( 200^2) /WIDTH(8),YCCN(2 5)^SWEEP(50) /HALF B/SJ <21/8) /EX (9 5/2 ) / TX ( 
395/2)/SC (1 60/5 ) /SI <160/5)/LC(3) 

COMMON /AERO/ A M 1 / A M2 / El /8 2 / C L ( 30 ) / C T ( 30 ) / C D ( 30 ) / G AM ( 2 / 1 00) 

COMMON /CONST/ N CS / NC W /M 1 < 8 )/ N SJ/ N CJ ( 5 )/ L AS T /MJ W1 < 3 / 5 ) /MJ W 2 ( 3 / 5 )/ J 
1 P ANEL/MJ J ( 5) /NW ( 3) /NNJ /NJP 
COMMON /PARAM/ A LP T / A L PC / A L PS / C D F / S D F / T H/ T D F 

C CM MON /ADO/ CP ( 100) / C M< 30 ) /8R E AK ( 8) / S WP ( 8 / 1 5 ) /6AL( 30 ) / IS Y M/VMU/VU 
1/TEMP/FCR/C AMLER /C AMLE T/CAMTER/CAMTE T/ X J/YJ/Z J / RJ/ALP/CREF/TWISTR 
COMMON /COST/ LT0TAL/LPAN1/NJW<5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1 I ST/OF (5) /NFP 
R E W I N D 0 3 
lpi=ltotal+i 

MJ=LPANEL+NCJ ( 1) 

MC0N=LAST+NCJ (1) 

I PHIsI 
JL=LAST+1 
I NN = 1 
LN=1 
L N 1 = 1 
JNN=1 

VMUC=\/MU*ALPC 
MK = 1 

I=LAST+1 

I1=I-JPANEL 

CALL MATRIX ( A W / LT 0 T A L / LP A N EL / VMU C / I / M C ON /M J /IPHl/lNN/LN/LNl/TEMP/ 
1LPAN1 /ISYM/KCOOE/EXIT/LPAN2) 

WRITE (03) ( AW (<)/K = 1 /LTOT AL) 

K 1 = 2 

N I=LTOTAL- 1 
L I=LAST + 2 
VMP=VMUC 
.310 KJ=LI 

-- -- I-F— (LI— , 6T LAST) -KJ = L-I-JPANEL__ : _ _ 

301 C ONT INUE 

CALL MATRI X(AW/LTOTAL/LPANEL/VMP / L I / MC ON /M J / I P H I / I NN / LN / L N 1 / T E MP / 

1 LPAN1 /ISYM/KC00E/EXIT/LPAN2) 

WRITE (03) (AW(K)/<=1/LT0TAL) 

350 IF (KJ .LT, MJ .OR. KJ ,EQ, LAST) GO TO 351 
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IPHI=iPHl+1 
M J=MJ+NCJ ( INN) 

351 C ONT INUE 

M J I = MJ J ( I N N ) - 1 

IF (KJ .EQ . MJ I ) GO TO 312 

GO TO 313 

312 JNN=INN 
INN=INN+1 

313 IF (KJ .EQ. MJJ(JNN)) IPHI=1 
IF (LI .EQ. LTOTAL) GO TO 355 
GO TO 356 

355 CONTINUE 
IPHIsI 

>IJ=LPANEL+NCJ (1 ) 

JNN=1 

INN=1 

356 CONTINUE 
KI=KI+1 
NI=NI-1 

IF (LI .EQ. LTOTAL) GO TO 361 
IF (LI .EQ. LAST) GO TO 36A 
LI=LI+1 
GO TO 362 

361 LI=LPANEL+1 
GO TO 362 

36A LI-1 

362 CONTINUE 

J F=LIrLAST+LPANEL 

jpisjp-1 

IF (JP .EQ. MJJ(LND) LN1=LN1+1 
IF (JP1 .EQ. MJJ(LN)) LN=LN+1 
IF (XI .LE. LTOTAL) GO TO 310 
RETURN 
END 
FORTY 

LIMITS/-31X 
INCODE I8MF 

SUBROUTINE MATRIX(AWrLTOTAL^LPANEL<rVMU-fWMCON^MJ/IPHI^INN/LN^LNl/T 
1EMP^LPAN1/ISYM,KC0DE/EXIT/LPAN2) 

C TO COMPUTE THE JET ON INFLUENCE COEFFICIENT MATRIX 

DIMENSION SV(30C)/W(4) ^AW(1 ) 

COMMON /AERO/ AM 1 / AM2 ^ 61 /8 2 / C L ( 30 ) / C T ( 30 ) ^ C D ( 30 ) ^ G A M ( 2^ 1 00 ) 

COMMON /CONST/ NCS^NCi4/Ml(8)^NSJ^NCJ(5)/LAST/MJWl(3/5)/MJW2(3/5)/J 
1 PANEL^MJ J ( 5) /NW( 3) #NNJ /NJP 

COMMON /GEOM/ H A LF S U/’ X Cp ( 2 00) / YCP ( 200 ) ^ Z C P ( 2 00 ) /X L E ( 5 0 ) ^ Y L E ( 5 0 ) /X T 
IE (50)^PSI(20)^CH(95)/XV(200)^YV(100)^SN( 8, 6 ) ^ X N( 200, 2 ) ,r N (200 ,2) , 
^ 2 ZN(200,2) /WIOTH(8)^YCON(25)/SWEEP(50) /HALFB^SJ (2W8) #EX(95/2)/TX( 
395^2)^SC(160^5)/SI(160^5)/LC(3) 

COMMON /PARAM/ A LP T / A L PC ^ A L P S ^ C 0 F / S D F # TH /- T 0 F 

COMMON /SCHEME/ C(2)/X(10/A1)/Y(10^41 )^SLOPE(15)^XL(2/15)/XTT(41)^ 
1 X LL( 41 ) 
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EQUIVALENCE ( X ( 1 ^ 1) ^ S V < 1 ) ) 
P 1=3. 141 59265 
Z JET=YCON( 25) 

I USB=YCON( 24) 

OFJ=CDF 

VUT=VMU 

TEM=TEMP 

NN2=NNJ-1 

N 1=NNJ-1 

N2=NNJ-2 

N3=NNJ-3 

N JH= (NSJ +1 ) /2+ 1 

IF (ISYM .EQ. 0) NJH=NSJ/2 

IF (ISYM .EQ. 0) NP=NSJ-1 

IF (ISYM .NE. 0) NP=NSJ+1 

NJT=NJH-1 

IZ=1 

I FF=1 

MM=NW(1) 

NN = NW ( 1 ) 

IND=1 
I SN=1 

L 1 =LPAN£L+ 1 
LAST1=LAST-1 

IF (I .GT. LAST) GO TO 26 
IJ = I 

GO TO 27 

26 IJ=I-JPANEL 

27 CONTINUE 


00 

1 6 

J * 1 ^ 

LAST 



( 


M I 

= J- 

IFF+1 






FN 

= NN 







I F 

( J 

.GT. 

LPAN1 

. AND . 

J 

.LE. LPAN2) 

I SN=2 

I F 

( J 

.GT. 

L P A N 2 

.AND. 

J 

.LE. LPANEL) 

ISN=3 

IF 

( J 

.GE. 

LPAN1 

. AND . 

J 

.LT. LPANEL) 

GO TO 24 

GO 

TO 

25 






24 N N 

= N W ( 2 ) 






I F 

( J 

.GE. 

LP AN2 

.AND. 

J 

.LT. LPANEL) 

NN=NU(3) 


25 CONTINUE 

IF (J .6E. LPANEL .AND. J ,LT. MJJ(IND)) NN=NCJ(IND) 
CMORO=CH(IZ) 

IF ( J .EQ. Li ) GO TO 33 
GO TO 34 
33 ISN=ISN+1 

L1=MJJ( IND)+1 

3 4_ NL = MJJJ IN0_)-.1__ __ 

IF (NL .EQ. LAST1) GO TO 90 ” ' “ 

IF (J .EQ. NL) IND-IND+1 
90 CONTINUE 

Xl =XN( J/1 )-XCP ( IJ) 

X 2 = XN(J^2) -XCP ( IJ) 
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X 1 2=XN ( J /2 ) -XN ( J /1 ) 
y 1 2=YN< J #2 )-YN ( J /I ) 

212 = ZN(Ji.2)-ZN(J/1 ) 

Z 1 =ZN( J / 1 ) -ZCP ( IJ) 

Z 2 = Z N ( J, 2 )-Z CP ( IJ) 

X 2J=X1 *Z 1 2-Z1 ★ XI 2 
DO 201 11=1^2 
I F ( II . EQ . 1 ) 60 TO 2 
N=1 

GO TO 3 

2 N = 2 

3 CONTINUE 

YC = (-1 . ) **N*YCP < IJ ) 

Y1=YN(J/1) -YC 

Y2=YN(J,2)-YC 

X YK=X1 * Y1 2-Yl * XI 2 

YZI=Y1*Z12-Z1*Y12 

ALB1=XYK*XYK+XZJ*XZJ+B1*Y2I*YZI 

R1B1=SQRT(X1*X1+B1*Y1*Y1+B1*Z1*Z1) 

R2Bl=SQRT(x2*X2 + e1>*Y2*Y2+0l*Z2*Z2) 

UU31=(X2*Xl2+ai*Y2*Yl 2+8l*Z2*Z12) /R2B1-(X1*X12+B1*Y1*Y12+B1*Z1*Z12 
1 ) /R1 B1 

G161=(1,-X1/R1B1)/(Y1*Y1+Z1*Z1) 

G2al=(1.-X2/R2Bl)/(Y2*Y2+Z2*Z2> 

IF (I .GT. LPANEL) go TO 20 
F1=UUai*XYK/ALBl 
F 2=-Y2*G23 1 +Y1 *G1B1 
IF (J .GT. LPANEL) 60 TO 110 
60 TO 15 
110 F3=0. 

F A = 0. 

F 1=2.*F1 
F2=2.*F2 
GO TO 15 
20 CONTINUE 

IF < J .LE. LPANEL) GO TO 117 
IF (A3S(B1-B2) .LE. 0 . C0 1 ) 60 TO 116 
ALS2=XY<*XYK+XZJ*XZJ+82*YZI*YZI 
R132=SQRTC:1*X1+B2*Y1*Y1+B2*Z1*Z1 ) 
R232=SQRT(x2*X2+B2*y2*Y2+B2*Z2*Z2) 

UUB2=(X2*X12+82*Y2*Y12+02*Z2*Z12)/R2B2-(X1*X12+B2*Y1*Y12+82*Z1*Z12 

1)/R182 

G1B2=(1 .-X1/R1B2)/(Y1*Y1+Z1*Z1) 

62B2=(1 .-X2/R2B2)/ (Y2*Y2+Z2*Z2) 

60 TO 117 

1 1 6 ALB2=AL31 
UUB2=UU31 
6232=6231 
6132=6131 

117 CONTINUE 

IF (I .GT. LAST) GO TO 40 
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F 1 3 = UU31 *X Z J/ ALB1 
F 12 = UU81 *X YK/ AL01 
G 1 3=Z2*G2B 1-Z 1 *G 131 
G12 = -Y2*62B1+Y 1*G1 B1 
IF (J .LE. LPANEL) GO TO 122 
F 23 = UUB2*X Z J /ALB2 
F 22=UU32*X YK/ ALB2 
G23=Z2*G232-Z 1 *G1B2 
G22=-Y2*G2 B2+Y 1 *G1 82 
GO TO 125 
122 F22=0. 

G22=0. 

F23=0. 

623=0. 

125 F1=-F13*Y(A^IPHI)*<-1. )**N+F12*Y(3^IPHI) 
F2=615*Y(4#IPHI)*(-1.) **N+612* Y(3^IPHI) 
F3=-F23*Y(4#IPHI)*(-1. )**n+F 22*Y( 3/ IPH I ) 
F4=G23*Y (4/IPHl)*(-1.) **N+G22 * Y (3 ^ IPH I ) 
IF ( J .LE. LPANEL1 GO TO 1 7 
F1=F1*2. 

F2=2.*F2 
FA=2.*F4 
F3=2.*F3 
GO TO 1 7 

40 F 1=UU31*YZ I/ALB1 

I F (EXIT .LE. 0.C01 ) GO TO 41 
IF (NNJ .EO. 1 ) 60 TO 41 

IF <IJ .GT. LPANEL .ANC. IJ .LE. MJJd)) 
IF <IJ .GT. LPANEL .AND. IJ .LE. MJJ(I)) 

41 CONTINUE 

F2-0, 

IF (J .LE. LPANEL) GO TO 22 

F3=UU92*YZ I/AL82 

F4=0. 

F3=-F3*2. 

F 1=-f1*VMU*VMU*2.*T£MP 
GO TO 17 

2 2 F 1=-F1 *VMU*VMU*TEMP 
17 CONTINUE 

15 W(II)=<F1+F2)*CH0R0*SN<«I/ISN)/(8.*FN) 

IF (J .LE. LPANEL) GO TO 200 
I F (II .EQ. 2) GO TO 2C0 
K2=II+2 

W(K2) = ( F3+ F4) *CHORO*SN (MU ISN) / (8. *FN) 
200 CONTINUE 

201~C0NT-INUE 

I F (J .LT. MM) GO TO 32 
I Z=IZ+1 
I F F = MH + 1 
MM-MM+NN 
32 CONTINUE 


VMU-1 . 
TEMPsI . 
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IF (J ,LE. LPANEL) JA=J+2*JPANEL 
IF (J ,GT. LPANEL) J A = J-LP ANE L+ JP A NE L 
AW(J A)=WC1 )+W(2) 

S V(J A)=W (1 ) 

IF (J .LE. LPANEL) GO TO 16 

J 1=J -LPANEL 

AW(J1)=W(3) 

VKU=VUT 

TEMPsTE.'^ 

16 CONTINUE 

I F (KCODE ,EQ. 0) GO TO 28 

I F (IUS8 . EQ. 1 .AND. ZJET ,GT. 0.01) GO TO 60 
IF (DFJ .LE. 0.0G01) GC TO 60 
IF (NNJ.EQ. 1 .AND. I .LE. LPANEL) 60 TO 60 

IF (NNJ.EQ. 1 .AND. I .GT. LPANEL) GO TO 66 

IF (I .LE. MJJ(NI) .OR. I .GT. LAST) GO TO 60 

66 CONTINUE 

IF (I .GT. LAST) 60 TO 60 
IF (IPHI .EQ. NJH) GO TO 60 

IF (ISYM .NE. 0 .AND. IPHI .EQ. 1) 60 TO 60 

IF (IPHI .LT. NJH) IL=IPHI-ISYM 

IF (IPHI .GT. NJH) IL=IPHI-NJH 

REWIND (02) 

IF (NNJ.EQ. 1) MJN1-LPANEL 
I F (NNJ .NE.1) f'JMsMJ J (Nl) 

« F=I J-MJ Nl -CIPH 1-1 ) *NC J(NNJ) 

FNNJ sNC J (NNJ ) 

DISTJ=SDF 

DLX=DISTJ*0.5*PI/FNNJ 
SZX=-(1 .-VMU) 

IQ=(IL-1)*NCJ(NNJ) 

CALL SKIP( IQ^JPANEL) 

DO 61 J J =1 /MF 

READ (02) (SV( K) /K=1 ^J PANEL) 

IF (JJ .EQ. MF) GO TO 65 
DXTHsdLX *P5I (JJ) /TH 
GO TO 67 

65 DXTH=DLX*PSI(J J) *0.5/TH 

67 CONTINUE 
PROD = SZX *D XTH 

DO 62 K1=1 ^JPANEL 
K<=K1+JPANEL 

62 A U (KO = AW( KK) +PROO*SV { K1 ) 

61 CONTINUE 

IQ=NCJ(NNJ)-MF+((NP-1-ISYM)/2-1)*NCJ(NNJ) 

CALL SKIP( IQ#J PANEL) 

DO 63 J J=1 /MF 

READ (02) (SV ( K) /K = 1 / J PANEL) 

IF (JJ .EQ. MF) 60 TO 68 
DXTH = DLX*PSI(J J) /TH 
GO TO 69 
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68 DXTH=0LX*PSI ( J J ) *0.5/TH 

69 PR00=SZX*0XTH 
0064 K1 =1 ^ JPANEL 
KK=K1+JPANEL 

64 AV«(K<)=AW( KK)-PR00*SV(K1 ) 

63 CONTINUE 
60 CONTINUE 

IF (EXIT .LE. 0.001) GO TO 29 
IF (NNJ .EQ. 1) GO TO 29 

IF (IJ .6T. LPANEL .AND. IJ .LE. MJJ(D) VMU=1. 
IF (IJ .GT, LPANEL .AND. IJ .LE. MJJd)) TEMP=1. 
29 CONTINUE 


I F 

(I .LE. LAST) GO 

TO 70 





I F 

( IPHI 

. EQ. NJH) 60 

TO 3 00 




I F 

( IS YM 

.NE. 0 .AND. 

IPHI 

.EQ. 

1 ) 

GO 

TO 300 

I F 

(NNJ . 

EQ. 1) GO TO 

302 





I F 

(IJ .GT. MJJ(N1 )) 

GO TO 

30 2 




I F 

( IPHI 

. GT. NJH .AND. ZJET .LE 

' « 

0.01 ) GO TO 

I F 

( IPHI 

.GT. NJH) Li 

= NJ H 





I F 

( ISYM 

.EQ. 0 .AND. 

IPHI 

.GT. 

NJH) 

L1=NJH+1 

I F 

( IPHI 

.LE. NJH) Li 

= 1 





NZ = 

1 







I F 

(Ny (2) 

.NE. 0 .AND 

. NW(3) .EQ 

1. 

0) 

NZ = 2 

1 F 

(NW(3) 

.NE. 0) NZ= 

3 





I F 

( NNJ . 

LE. 3 .AND. 

NW(2) 

.NE. 

0) 

IR 

SN2 

I F 

( NNJ . 

LE. 3 .AND. 

Nw(2) 

.EQ. 

0) 

IR 

= N1 

I F 

(NNJ . 

GE. 4 .AND. 

Nk( 3) 

.NE . 

0) 

IR 

= N3 

I F 

( NNJ . 

EQ. 4 .AND. 

NW(3) 

.EQ. 

0) 

IR 

= N2 

DO 

311 NR 

*1yNZ 







Kl=Mjy1 (NR/NJP) + (IPHI-L1-ISYM) *NW(NR)-1 

K2 = LC(NR)+ IPHl-Ll-ISYM 

KNU=NW(NR) 

K1 = ((1-KNW 
K2 = K2-1 
MR=3 

IF (K1 .GE . 0) GO TO 4 CO 
< 1 = K 1 + K N y 
<2=K2+1 
MR = 2 

400 DO 420 NQ=1/MR 
SUMsO. 

DO 310 <K=1/KNW 
KL = K1+KK • 

J A = KL*2* JP ANEL 
310 SUM=SUM+SV (J A) 

— CALl^ rNT EG < RESvXNy ,X-1-/ K2^-I J^a l-/-IR . 

DO 315 i(K=1 ^<NW 
KL=K1+<K 
J A=KL+2*JP ANEL 
A A = 1 . 

DO 320 L=1 aKNW 
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LLSK1+L 

IF (L .EQ. KK> 60 TO 320 

A/» = AA* (XCP ( IJ )-XV(LL) ) /( XV (KL) -XV (LL> ) 

320 CONTINUE 

AW<J A)=AW< JA)- SUN*AA-RES*AA*VMU*VMU*TEMP 
315 CONTINUE 
K1=K1+KNW 
K2=K2+1 
420 CONTINUE 
IRsIR+1 
311 CONTINUE 
302 CONTINUE 

I F (KCOOE .EQ. 0) 60 TO 500 
IF (NW(2) .EQ. 0) NSTRIP=NCS 

IF <NW(2) .NE. 0 .AND. NW<3) . EQ. 0) NSTRIP=NCS*2 

IF (NW(3) .NE. 0) NSTRIP=NCS*3 

IF (IPHI .LT. NJH) IP=NJH+1 

IF (IPHI .GT. NJH) IP=ISYM+1 

I F ( NNJ .EQ. 1 ) 60 TO 325 

IF (IJ .GT. MJJ(NI)) GO TO 325 

1 F (NNJ iEQ. 2 ) GO TO 330 

IF (IJ .GT. MJJ(n2)) GC to 330 

IF (NNJ .EQ. 3) GO TO 381 

IF (IJ .GT. MJJ(N3)) GC TO 383 

IF (NNJ .EQ. 4) GO TO 385 

IF (NNJ .EQ. 5 .AND. IJ .GT. MJJ(NNJ-4)) GO TO 386 
LlsNNJ-4 
IZ=NSTRIP 
GO TO 335 
386 Ll*N3 

I ZaNSTRI P+NP 
GO TO 335 
385 L1SN3 

IZ=NSTRIP 
GO TO 335 
383 L1=N2 

I Z=NSTRIP+ (NNJ-3)*NP 
GO TO 335 
381 CONTINUE 
LI =N2 
I ZsNSTRIP 
GO TO 335 
325 L1=NNJ 

IZSNSTRIP+ (NNJ-1 )*NP 
GO TO 335 
330 L1=N1 

IZ=NSTRIP+ (NNJ-2)*NP 
335 CONTINUE 
IZ=IZ+IP 
NT=NJT 

IF (ISYM .nE. 0) NTsNJT-1 
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KNW=NCJ(L1) 

DO 341 KP=WNT 
SUM1=0. 

SUM2=0. 

K 1 =MJ J (LI ) -NP*NCJ (LI ) + (KP-1 )*NCJ ( Li > + ( IP-1 ) *NC J (Li ) 

00 340 KX=1 #KNW 

KL=K1+KK 

KJ=KL+JPANEL 

I A=KL-LPANEL+JPANEL 

IB=KJ-LAST 

SUM1=SUM1 + SV( I A) 

340 SUM2=SUM2+AW( IB) 

CALL INTEG(RES^KNW^K1 , IZ^IJ^BI^LI > 

IF (ABS(Bl-a2) .LE. 0. COD 60 TO 350 
CALL INTEG ( R E F ^ KN W/ K D I Z ^ I J ^ B 2/L 1 > 

GO TO 355 
350 REF=RES 
355 00 360 KK=DKNta 
kl=<i + k:< 

KJ=KL+JPANEL 
I A=KL-LPANEL+JPANEL 
IB=KJ-LAST . 

AA = 1. 

00 365 L=1 yKNW 
LLSK1+L 

I F (L .EQ, KK) GO TO 365 

AA = AA*(XCP(IJ)-XV(LD ) / (XV(KL)-XV (LL) ) 

365 CONTINUE 

AW(IA)=AU(IA)-SUM1 * AA- RE S * A A * VMU* VMU * T EMP *2 . 
AW(IB)=AW( IB)-SUM2*AA-REF*AA*2. 

360 CONTINUE 
342 IZ=IZ+1 

341 CONTINUE 
300 CONTINUE 

SK = 1 . 

IF (IPHI .GT. NJH) SK=-1. 

J I=I-L ast+lpanel 

K=MCON-LAST-NCJ (LN)+LPANEL 
JNJaNCJ(LN) 

00 52 XK = DJNJ 

KL=K+KK 

KJ=KL+JPANEL 

I A=KL-LPANEL+JPANEL 

IB=KJ-LAST 

AA = 1 . 

00 53 L=D JNJ 
LL=K+L 

I F (L ,EQ. KK) GO TO 53 

AA = AA* (X CP ( J I )-XV(LL) ) /(XV ( KD-XV (LL) ) 

53 CONTINUE 

AW(I8)=AW( IB)+AA*SK 
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52 AW(IA)sAW< lA)- AA*VMU*VKU*TEMP*SK 

IF (1 ,EQ. MCON .AND. I ,LT. LTOTAL) M CON =MC ON + NC J ( LN 1 ) 
I F (KCODE .EQ. 0) GO TO 71 

IF (lUSB ,EQ. 1 .AND. ZJET .6T. 0.01) GO TO 71 
I F (NNJ .EQ. 1 ) GO TO 71 
IF (IJ .GT, MJJ(ND) GO TO 71 
IF (IPHI .LE. NJH) GO TO 71 
L 1 =NJH 

IF (ISYM .EQ. 0) L1=NJH+1 
IF (NW(2) .EQ. 0) 60 TC 170 
IF (NW(3) .EQ. 0) GO TO 171 
IF (IJ .GT. MJJ(N2)) 60 TO 82 
IF (IJ .GT. MJJ(N3)) GC TO 72 



I F 

(NNJ .EQ. 

4) GO TO 77 






I F 

(NNJ .EQ. 

5 .AND. IJ 

.GT. MJJ(NNJ- 

4) ) 

60 

TO 


GO 

TO 71 






171 

I F 

(IJ .GT. 

MJJ(N2)) GC 

TO 72 





I F 

(NNJ .EQ. 

3) GO TO 77 






I F 

(NNJ .EQ. 

4 .AND. IJ 

.GT. MJJ(N3)) 

GO 

TO 

77 


GO 

TO 71 






1 70 

I F 

(NNJ .EQ. 

2) GO TO 77 






I F 

(NNJ .EQ. 

3 .AND. IJ 

.GT. MJJ(N2)) 

GO 

TO 

77 


60 

TO 71 






77 

K 1 = 

MJW1(1/NJP) + ( IPHI-L 1- 

ISYM) *NW( 1 )-1 





KNW 

= NW( 1 ) 







GO 

TO 73 






72 

K la 

MJWI (2/NJP) + ( IPHI-Ll- 

ISYM) *NW( 2)-1 





KNW*NW(2) 

GO TO 73 

82 K1=MJW1(3^NJP)+(IPHI-L1-ISYM)*NW(3)-1 

KNW=NW(3) 

73 DO 74 KK=1 ^KNW 
<L=K1+KK 

J A=KL+2* JPANEL 
AA = 1. 

DO 75 L=1/<NW 
LL=K 1+L 

IF (L .EQ. KK) GO TO 75 

AA =A A*(X CP 'IJ)-XV(LL))/( XV (KL>- XV (LD) 

75 CONTINUE 

74 AW(JA)=AW(JA)-AA*VMU*Vr'U*TEMP*0.5 
71 CONTINUE 

I F (KCODE .EQ. 0) GO TO 70 
IF (ZJET .GT. 0.01) GC TO 70 
IF (DFJ .LE. 0.GC01) GO TO 70 
I F (NNJ .EQ. 1 ) GO TO 76 
IF ( IJ .LE . MJ J (N1 ) ) GO TO 70 
76 CONTINUE 

IF (IPHI . EQ. NJH) 60 TO 70 

IF (ISYM .NE. 0 .AND. IPHI .EQ. 1) GO TO 70 
DO 79 J=1#JPANEL 
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/ 

jj=j+jPANEL 
79 S V( J )=-AvJ< JJ ) 

WRITE (02) (SV ( J )/ J=1 # JPANEL) 

70 CONTINUE 
VMU=VUT 
T EMP = TErt 

101 FORMAT (10 (F1 1.5)) 

100 FORMAT (6(5X^I3)) 

RETURN 

END 

$ FORTY 

$ INCOOE IBMF 

SUBROUTINE SKIP (I^JPANEL) 

DIMENSION DUMMY(200) 

IF (I .EQ. 0) GO TO 1 
DO 2 J=1 ^I 

READ (02) (0UMMY(K)#K=1^JPANEL) 

2 CONTINUE 
1 RETURN 
END 

$ FORTY 

$ INCOOE IBMF 

SUBROUTINE W I N 6 ( A W^ L P AN EL ^ I / BB/L P AN 1 / LPA N2 ) 

C TO COMPUTE THE JET OFF INFLUENCE COEFFICIENT MATRIX 

DIMENSION AW(1 ) ^W(2) 

COMMON /AERO/ AM 1 / AM2 / 01 /B 2 ^ C L ( 30 ) # C T ( 30 ) ^ C D ( 3 0 ) / G A M ( 2/ 1 00 ) 

C OMMON /GEOM/ H A LF S W/ X CP ( 2 00 ) / Y CP ( 200 ) /ZCP(200)/XLE(5 0)/YLE(50)/XT 
IE (50)/PS I(20)^CH(95)/X V(200)/YV(1 00)/SN( 8.- 8) / X N ( 200/ 2 ) ^ Y N ( 200 2) # 
2 2N(200/2)/WIDTH(8)/YC0N(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2)/SC (160/5 )/ SI (160/5 )/LC( 3) 

COMMON /CONST/ NCS/NCW/M1(8)/NSJ/NCJ(5) /LAST /MJ Wl (3/5)/MJW2(3/5)/J 
IP ANEL/MJ J ( 5) /NW (3) /NNJ /NJP 
I Z=1 
IFF = 1 
ISN=1 
NL=NW(1) 

NN=NW(1) 

DO 16 J=1 / LPANEL 
M I=J-IFF+1 
FN = NL 


I F 

( J 

,GT. LPAN1 

. AND . 

J 

.LE. 

LPAN2) 

I SN*2 

I F 

( J 

.GT. LPAN2 

. AND . 

J 

.LE. 

LPANEL ) 

I SN = 3 

I F 

( J 

,GE. LPANI 

. AND . 

J 

.LT, 

LPANEL) 

GO TO 20 

GO 

TO 

21 






20 NL = 

NW(2) 






IF 

( J 

. G Ev - LP AN 2 

. ANDv 

J 

-.LT. 

-LPA NEL-) 

N L = N W-( 3 )- 


21 CONTINUE 

X 1 =XN( J/1 )-XCP (I) 

X 2 = XN( J,2) -XCP ( I) 

X 1 2 = XN( J /2 )-XN ( J /I ) 
Y 1 2=YN( J /2 )-YN ( J / I ) 
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D 0 1 5 1 1 =1 / 2 
I F ( II ,EQ. 1 ) GO TO 2 
N = 1 

GO TO 3 

2 N=2 

3 CONTINUE 

YC=(-1 . ) **N*YCP( I) 

Y 1=YN( J ^ 1 ) -YC 
Y2=YN(J^2) -YC 
XYK=X1 -kYl2-Yl*X1 2 
9 IsSQRTI XI *Xl +88*Y1 *Y 1 ) 

R2=SQRT( X2*X2+88*Y2*Y2) 

U1 =( XI 2*X2 +08* Y1 2* Y2) /R2-(X12*X1+B3* Y1 2*Y1 ) /R1 

U1=U1/XYK 

U2=(1 .-X 1/ R1 )/ Y1 

U3=< 1 .-X2/ R2) / Y2 

15 W(II)=(U1+U2-U3)*CH(IZ)*SN(MI^ISN)/(8.*FN) 

AWCJ )=W(1) +W(2) 

IF (J ,LT. NN .OR. J .EQ. LPANEL) 60 TO 16 

IZ=IZ+1 

IFF=NN+1 

NN=NN+NL 

16 CONT INUE 
RETURN 
END 

S LINK L INK33/LINK22 

$ FORTY 

$ INCOOE I8MF 

SU8R0UTINE WALNOL 

C THIS PROGRAM DETERMINE THE OPTIMUM CAMBER SHAPE AND TWIST 

C DISTRIBUTION WITH SPECIFIED LIFT AND PITCHING MOMENT CONSTRAINTS 

C IN THE WING-ALONE CASE WITH ZERO LEADING EDGE SUCTION. 

PARAMETER IPAN EL=60/ I C W=6 

PARAMETER LLO= I P AN E L * * 2^ LL 1 -= ( I P AN E L + 3 ) * + 2 /4 + 1 
EQUIVALENCE < 8 I GC X ( 1 / 1 ) ^ A I J ( 1 / 1 > , F NW W ( 1 ^ 1 > ) 

DIMENSION CDGW < IPA NED /CLGW ( I PANE L)^CMGW( IPANEL ) 

DIMENSION AW(2C0)/CA(2C0)^CDII(20)#PAMBDA(2)^8A(200) 

DIMENSION GAMMA (LL 1 ) /8CN0N ( ICW) #>VKST D ( IPANEL) /THETA I( ICW) 

DIMENSION :'.A(10)/ FN W W ( I P A NEL / I PA N EL ) / 8 1 G CX ( I P A NEL / IP ANEL ) 
DIMENSION AKUPANED/CONSTUPANED/CAMZCCIPANED 
DIMENSION DNWW(ICW/IPANEL)/CX(ICW/ICW)/AIJ(IPANEL/IPANEL) 

COMMON /AERO/ AM 1 / A M2 / 8l /B 2 / C L ( 30 ) / C T ( 30 ) / C D ( 30 ) / G A M ( 2/ 1 00 ) 

COMMON /PARAM/ A LP T /A L FC / A LPS / C DF / SD F , TH / T 0 F 

C CMMON /CL OPE/ DZOXKd CO) / ALP AO (1 5 ) /G C 8 ( 1 00 ) / G C 0X ( 1 00 ) / TH E T AK ( 1 0) 

1 / CCX (1 00)/0ZDXK< 100) /6AN(2/100) 

COMMON /ADD/CP(100)/CM(30)/BREAK(8)/SWP(8/15)/GAL(30)/ISYM/VMU/VU 
1/TEMP/FCR/CAMLER/CAMLET/CAHTER/CAMTET,XJ/YJ/ZJ/RJ/ALP/CREF/TWISTR 
COMMON /CONST/ NCS/NCW/Ml<8)/NSJ/NCJC5)/LAST/MJWl(3/5)/MJW2(3/5)/J 
1 P ANEL/MJ J ( 5) /NW ( 3) /NN J /NJP 

COMMON /COST/ LTCTAL/LFAN1/NJW(5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1IST/DF(5)/NFP 
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COMMON /GEOM/ HALFSW,XCP(200)/YCP(200)^ZCP(200)/XLE(50)^rLE(50)^XT 

1 E (50>^PS I ( 20>^ CH (95)^X V(200>/. YV(1 00) /SN( 8^ 8 > ^ XN < 2 00^ 2 ) ^Y N ( 200^ 2) , 

2 ZN( 200^2) ^WIDTH(8)/YCCN(25)#SWEEP(50)^HALFB^SJ(2U8)^EX(9 5^2)^TX( 
395^2) ^SC (1 60^5) /SI (160^5) /LC( 3) 

COMMON /lOENT/ DZDXKl ( 100 ) / 6 AM 1 ( 1 00) / C AMZ C 1 ( 1 00 ) / AL PA 0 1 < 2 0 ) / Y L E 1 ( 2 
10 ) 

13 FORMAT (AF10. 5/110) 

1A FORMAT (1H / ' C OB AR / CL 3 AR / C MB A R / DE L T A/ M AXP ’ ) 

call INVRCX ( THETA I/BOAON/AA/ IPANEL/BIGCX/AK/ ICW/CX ) 
call WALN02 ( A U / AU/ F N UU / I P AN EL /B A / D N UW / I C U / C X ) 

C 

C ***THEORETI CAL MINIMUM INDUCED DRAG C OE F F I C I E NT / L I FT CONSTRAINT/ 

C PITCHING MOMENT CONS T R AI NT / I N I T lA L STEP SIZE/MAXIMUM NUMBER OF 

C ITERATIONS *'** 

WRITE (6/1 4) 

READ (5/13) CDBAR/CLBAR/CMBAR/OELTA /MAXP 
WRITE (6/13) COBAR/CLBAR/CMBAR/DELTA/MAXP 
C 

DO 91 J=1/LPANEL 
6AMMA(J)=0.0 
91 CONTINUE 
N =0 
C 

38 N=N+1 

WRITE (6/200) DELTA/N 

200 FORMAT (1H / ' T H E C OMP U TE D STEP SIZE/ DEL T A s * / F 1 0 . 3 / 5 X / * A T ' / I 3 / 'T H 
1 ITERATION ' ) 

DO 31 I=1/LPANEL 
GAMdz I)=GAMMA(I) 

GAM(2/I)s6AMMA(I) 

31 CONTINUE 

call WALN0 3 (GAMMA /DELTA/AW/C A/ CD 1 1 / C L B AR / C MB A R /P AM B 0 A/ N / I PANEL / 
1AIJ) 

I F ( N. EQ .1 ) 60 TO 79 

IF ( CO I I (N ) .LT . C DBAR) GO TO 29 

IF ( ABS ( (C DI I ( N) -C DBAR ) /COBAR ) ,LT. 0.05) GO TO 60 
IF (COII(N) .GT. COIKN-D) 60 TO 39 
GO TO 79 

29 CDII (N) =C0 II ( N-1 ) 

39 C ONTINUE 

DELT A = 0. 5* DELT A 
DC 49 I=1/LPANEL 
6AMMA( I)=6AM( 1 /I) 

G AMMA ( I ) =G AM( 2 / I) 

49 CONTINUE 



79 CONT INUE 

CALL WALN04 (GAMMA/DELTA / P AM B D A/ C A/ V K S T D / C DGW / CL G W / C M6W / I PAN E L 
1 / AIJ ) 

68 CONTINUE 

I F (N.LT .MAXP) GO TO 38 
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60 CONTIMUE 

DO 81 I = WLPANEL 
G AM< 1 /. I)=G AMMA (I) 

GAM(2^I)=GAMMA(I) 

81 CONTINUE 

CALL WALN05 ( A K / CA M2 C / CONS T ^G AMMA , BA ) 

DO 71 I = ULPANEL 
CP(I)=2.*GAMMA(I)*ALPC 
71 CONTINUE 

WRITE (6,9) 

9 FORMAT (in /'OPTIMUM PRESSURE LOADING IN THE WING ALONE CASE') 
WRITE (6/8) (CP(I) /I=1 /LPANEL) 

8 FORMAT (1H /6F10.5) 

RETURN 
END 
FORTY 

INCODE IBMF 

SUBROUTINE WALN02 ( A I J / A W/ F NW W/ IP A MEL / 6 A/ DNW W / I CU / C X ) 

C SET UP THE TRANSFORMATION MATRIX 'A(I/J)' 

DIMENSION AIJ(IPANEL/1)/AW(1)/FNWW(IPANEL/1)/BA(1)/DNWW(ICW/1) 
DIMENSION CX(ICW/1) 

COMMON /CLOPE/ D ZO XX ( 1 CO ) / ALP AO ( 1 5 ) / G C B ( 1 00 ) / G C BX ( 1 00 ) / TH E T AK ( 1 0) 
1/CCX(100)/0ZDXK(100)/GAN(2/100) 

COMMON /CONST/ NCS/NCW/M1(8)/NSJ/NCJ(5)/LAST/MJW1(3/5)/MJW2(3/5)/J 
IP ANEL/MJ J ( 5) /NW(3) /NNJ /NJP 

COMMON /COST/ L TOT A L^ L PANl / N J W ( 5) / LP AN EL 1 E N T N / LP A N 2 ^ E X I T / PT I A L /T W 
1 I ST/ DF (5 ) / NFP 
L1=LPANEL+1 

IF (NW(2).EQ.0) GO TO 5 

R E W I N 0 0 1 

00 1 1=1 /L PANEL 

READ (01 ) (AW(X)/K=1/L1) 

DO 1 J=1 /LPANEL 
FN'wW( I /J ) = AW( J ) 

1 CONTINUE 
REWIND 08 

DO 2 I=1/LPANEL 

WRITE (03) ( FNWW(J / I) / J=1/LPANEL) 

2 CONTINUE 
REWIND 04 

DO 3 1=1 /LPANEL 
REWIND 08 

READ (04) (AW(L)/L=1/LFANEL) 

DO 4 J = 1 /L PANEL 

A IJ ( I/J ) =0 .0 

READ (08) (BA(L)/L=1/LFANEL) 

DC 4 X=1/LPANEL 

4 A IJ ( I /J ) =A IJ ( I / J ) + AW( X ) *0A (K) 

3 CONTINUE 
GO TO 10 
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5 CONTINUE 

REWIND 01 . 

0016I=1>NCS 

00 1 7 NCW 

READ (01) (AW(K)^K=1^L1) 

DC 1 8 N=1 / LPAN EL 
18 DNWW<M#N)=AW(N) 

17 CONTINUE 

DO 6 IK=1/NCW 
DO 6 JJ=1/LPANEL 
II*( 1-1 ) *NCW+IK 
A IJ ( I I,J J) =0.0 
DO 7 L=1^NCW 

7 AIJ(IWJJ)=AIJ<II#JJ)+CX(IK^L)*DNWW(L^JJ) 

6 CONTINUE 
16 CONTINUE 
10 CONTINUE 
RETURN 
END 

$ FORTY 

$ INCOOE IBMF 

SUBROUTINE UAL NO 3 (GA.MyA^DELTA^AW^CA/COII^CLSAR/CMBAR/PAMBOA^N/ 
1IPANEL/AIJ) 

C FIND THE WING ALONE VORTEX STRENGTH AT THE N-TH ITERATION 

DIMENSION AW(1)/CA(1)/GAMMA<1)#C0II(1)/PAMBDA(1)/AIJ(IPANEL#1) 
COMMON /AERO/ AM 1 # AM2 # B1 / 8 2 / C L ( 30 ) ^C T ( 30 ) ^ C 0 ( 30 > / G A M ( 2 # 1 00 ) 

COMMON /CLOPE/ OZO X K < 1 CO ) / ALP AO ( 1 5 ) ^ 6 C B ( 1 00 ) / G C 3X ( 1 00 > / TH E TAX C 1 0) 

1 / CCX (100)/OZDXK<100)/GAN(2^100) 

COMMON /CONST/ N CS / NC W ^M 1 ( 8 ) ^ N S J / N C J ( 5 ) /L AS T / M J Wl ( 3 ^ 5 ) ^ M J W 2 ( 3 5 ) / J 

1 P ANEL^MJ J ( 5) /NU (3) /NN J /NJP 

COMMON /GE0M/HALFSWvXCP<200)^YCP(200)/ZCP(200>/XLE(50)/YLE(50)^XT 
1E(50)#PSI<20)#CH(95)/XV(200)^YV(100)/SN( 8^8)^XN(200^2)^YN(200/2)/ 

2 ZN(200^2) /WIOTH(8)/YCCN(25)^SWEEP<50) /HALFB^SJ(2W8)^EX(95/2)^TX( 
395/2 ) /SC (1 60/5 ) /SI ( 160 /5) /LC(3) 

COMMON /COST/ LT0TAL/LFANl/NJW<5) / LP A N EL / IE N T N / LPA N 2 / E X I T / PT I A L /T W 
1 I ST/DF(5)/NFP 
P 1 = 3. 1 41 59265 
L1=LPANEL+1 
L2=LPANEL+2 
L 3 = LPANE L+ 3 
REWIND 03 
DO 71 1=1 / LPANEL 
DO 72 J-1/LPANEL 

1 F (J .EQ. I) GO TO 73 
C A(J )=0. 0 

“ G'0“T 0 72 — ^ 

73 CA(J)=1.0 

72 CONTINUE 

CA(L1)=PI**2*GCB(I)/(HALFSW*2.)*DELTA 
C A(l2)=PI**2*GCBX( I) / < HALFSW*2.)*DELTA 
ADGW=0. 
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00 74 K=1#LPANEL 

AOGW =AOGW -(G CB( I )*AIJ (I^K> + 6CB ( K)*A IJ ( I )) *GAM (1 ^K) 

74 CONTINUE 

CA(L3)=A0GW *PI**2*DELTA/(HALFSW*2. ) 

WRITE (08) (CA <KK) /KK=1^L3) 

71 CONTINUE 

DO 75 K = 1 ^ LPANEL 
C A(K)=GCB( K) *P I*PI / (H ALFSW*2. ) 

75 CONTINUE 
CA(L1)=0.0 
CA(L2)s0.0 

C A(L3)=CLI I-CL EAR 
WRITE (08) (CA(J)#J=1/L3) 

00 76 L = WLPANEL 
CA(L)=GCBX(L)*PI*PI/(HALFSW*2.) 

76 CONTINUE 
CA(L1)=0.0 
CA(L2)=0.0 

C A(L3)*CMI I-CMEAR 
WRITE (08) (CA( J)/J=1 ^L3) 

C 

REWIND 03 

READ (08) ( AW ( I ) ^1=1 3) 

DO 77 I=1/L2 
G AMMAd ) =- AW( I +1 )/ AW( 1 ) 

77 CONTINUE 
NJ=L2-1 

00 73 IJ=2/L2 

READ (08) (AW( I)^I=1/L 3) 

1 KsIJ 

CALL VMSEQN ( N J / I K ^ AW GA MM A ^ C A ) 

NJsNJ-1 

78 CONTINUE 

PAMBOA( 1 )=GAMMA(L1 ) 

PAM80A (2 )=GAMM A (L2 ) 

00 36 1 = 1 *-LPANEL 

GAMMA( I)=GAM(1 /.I) + GAMMA( I) 

36 CONTINUE 

00 21 I = ULPANEL 
0 ZDXK( I ) =0 .0 
00 22 J=1^LPANEL 

OZOXK(I)=OZDXK(I)+AIJ(I/J)*GAMMA(J) 

22 CONTINUE 
21 CONTINUE 
C LII-0,0 
CMII=0.0 
C Oil (N)=0. 0 
00 50 I = ULPANEL 

CDII(N)=COII(N)+GCB(I)*OZDXK(I)*GAMMA(I) 

CLII=CLI I + GC3( I) *G AMMAd ) 

CMII=CM1I+GCBX ( I )*GAMMA( I) 
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50 CONTINUE 

CDII(N)=-PI**2*CDII(N) /(HALFSW*2. ) 

C LI I=PI *PI *CLI I /(HALF S W*2. ) 

CMI1=PI*PI*CMI I/(HALFSW*2. ) 

WRITE (6^1 34) con (N) 

134 FORMAT (IH ,* INDUCED D RA G C OE F F IG I ENT > C0H = '^f15.5) 

WRITE (6.-135) CLII 

135 FORMAT (1H ,’LIFT COEFFICIENT/ CL 1 1 = * /F 1 5 . 5 ) 

WRITE (6/136) CMII 

136 FORMAT (1H /'PITCHING MOME N T CO EF F I C I ENT / CM 1 1 = ' / F 1 5 . 5 ) 

RETURN 
END 

FORTY 

INCODE I3MF 

subroutine WALN04 (GAMMA/DELTA /P AMB D A / C A / VK ST D /C D G W/ C L GW / CMGW / 
1IPANEL/AIJ) 

C CALCULATE THE STEP SIZE BY ONE DIMENSIONAL OPTIMIZATION 

C TECHNIQUE 

DIMENSION CA( 1 ) / VXSTD ( 1) /C DGW ( 1 )/ CL6W ( 1 )/CMGWn )/6AMMA (1 ) 

DIMENSION PAMBOAd )/AIJ( IPANEL/1) 

COMMON /CL OPE/ OZDXK(100)/ALPAO(15)/GCB(100)/GCBX(100)/ THE TAX (10) 
1/CCX(100)/0ZDXX(100)/GAN(2/100) 

COMMON /6E0M/ HALFSW/XCP(200)^YCP(200)/2CP(200)/XLE(50)/YLE(50)/XT 
1E(50)/PSI(20)/CH(95)/XV(200)/YV(100)/SN( 8/8)/XN(200/2)/YN(200/2)/ 
2 ZN( 200/ 2) /WIDTH(8)/YCCN(25)^SWE£P(50)/HALFB/SJ(21/8)/£X(95/2)/TX( 
395/2) ^SCd 60/5) / SKI 60/5) /LC(3) 

COMMON /COST/ LTOTAL/LPANi / N J W ( 5) / LP A N EL / I E N T N/ LP AN 2 / E X I T / PTI AL /T W 
1IST/0F(5)/NFP 
PI=3. 141 59265 

0012 1=1 / LPANEL 
CA(I)=0.0 

0013 J=1 / LPANEL 

CA(I) = CA(I) + (GCB(I ) *A IJ( 1/ J ) + GCB( J )*AIJ ( J/I )) *GAMMA (J ) 

13 CONTINUE 

C0GW(I)=-PI*PI*CA(I)/(HALFSW*2.) 

12 CONTINUE 

DO 15 I=1/LPANEL 

C LGW ( I) =PI *PI*GCB( I) / ( HALFSU*2. > 

15 CONTINUE 
DO 16 1=1/ LPANEL 

CM6W(I)=PI *PI*GC8X (I)/(HALFSW*2.) 

1 6 CONTINUE 
DO 90 I=1/LPANEL 
VKSTO( I ) =0.0 

VXSTD(I)=VKSTD(I)- (COGW( I) +PAMBOA ( 1)*CL6W(I)+PAMBDA(2)*CMGW(D) 

. 90— CONTI NUE . ; 

C DGW 1=0.0 
COGW2=0.0 
DO 92 J=1/LPANEL 
00GW=0.Q 

DO 93 I=1/LPANEL 
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00GW?s0DG;«+(GC8(I)*AIJ(1^J) +GC8( J) *AIJ(J,I))*VKSTD(I) 

93 continue 

C OGWl =CDGW1 +ODGW*GAMMA (J ) 

COGW2 = CDGW2 + DOGW*VKSTO (J ) 

92 continue 

B0R=C0Gy1 . 

D0R=CDGW2 

0ELTA=A8S(80R/00R) 

RETURN 

END 

$ FORTY 

$ INCOOE I8MF 

SU8R0UTINE UALN05 < AK / C AMZ C /C ON ST ^ G AMM A ^ 8 A ) 

C find the camber ORDINATES AND LOCAL ANGLE OF ATTACK 

DIMENSION ALPAdS) 

DIMENSION A<(1)/CAMZC(1)/C0NST(1)/GAMMA(1)/BA(1) 

COMMON /CLOPE/ DZDXK(1C0)#ALPAO(15)^GCB(100)^GCBX(100)^THETAK(10) 
1^CCX(1QO)^OZOXK(1QO)^GAN(2/100) 

COMMON /CONST/ NCS/NCW/M1<8)/NSJ/NCJ(5)/LAST,MJW1(3^5)/MJW2<3^5)/J 
1PANEL/MJ J ( 5) /NW<3) /NNJ /NJP 

COMMON /COST/ LTOTAL/LPANI ^NJ W( 5) /LPANEL^IENTN/LPAN2^EXIT^PTIAL/TW 

1 I ST^DFCS)^ NFP 

COMMON /GEOM/ HALFSW,XCP(200)#YCP(200)^ZCP(200)^XLE(50)#YLE(50)^XT 
1E(50)^PSI(20)#CH(95)/XV<200)^YV(100)^SN( 8^8)^XN(200/2)/YN(200/2)^ 

2 ZN(20Q,2)^WIDTH<8)/YC0N<25)^SWEEP(50),HALFB/SJ{21/S)^EX(95y-2)/TX< 
39 5/2)/SC <1 60/5 ) /SI ( 160/5)/LC(3> 

COMMON /ID ENT/ DZOXK1<100)/GAM1(100)/CAMZC1(100)/ALPA01(2Q)/YLE1(2 
10 ) 

P 1=3, 1A1 59265 
NW2=NW(1 )+NWC2) 

IF (NW<2) .EQ. 0) GO TO A8 
I I=NCS+1 

IF (Ng<3) .NE. C) GO TC 50 
CHORD = CH (1 ) + CH ( I I) 

XX1=CH(1) /CHORD 
THETA1=ARC0S(1 .-2. *XX1 ) 

THETA2 = P I 
60 TO 51 

50 III = IH-NCS 

CHORD = CH ( 1 ) +CH < I I) +CH ( II I) 

XX1=CH(1 )/CHORD 
THETA1=ARC0S(1.-2.*XX1) 

X X2= (CH( 1 ) +CH< I I )) /CHORD 
THETA2=ARC0S(1 ,-2.*XX2) 

51 CONTINUE 
GO TO 49 

48 THETA1=PI 

49 CONTINUE 
WRITE (6/102) 

102 FORMAT (1H /'THE TWIST DISTRIBUTION IN THE SPANWISE DIRECTION') 
K1=1 ■ 
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K2 = 2 

DO 23 <1-1 /NCS 
DO 25 N=1/.NCW 
N /»=(<I-1 )*NCW+N 
AK(NA)=0..0 
FN=N-1 

DO 27 L=1 /NCW ' 

IF (L.LE.NWn ) )<B=(KI-1) *NWn )+L 

IF (L.GT.NW(I) .AND. L .L E . N W2 ) KB= LP AN 1 + ( K I- 1 ) *N W( 2 ) +L -NU ( 1 ) 

IF (L.GT.NW2) KB=LPAN2 +( KI-1 ) *NW< 3)+L-NW2 
I F (L .LE. NW( 1 ) ) GO TC 1 00 

IF (L .GT. NW(I) .AND. L .LE. NW2) GO TO 200 
IF (L .GT. NW2) GO TO 300 
100 FNvrf=NW<1) 

T HETA = THET A1 
GO TO 400 
200 FNU*NW(2) 

T HETA=THET A2-T HETA1 
60, TO 400 
300 FNW=NW{3) 

THETA=PI-THETA2 
400 CONTINUE 

AK(NA)=A<<NA)+THETA*DZDXK<KB)*COS(FN*THETA<(L))/(FNwJ*PI) 

27 CONTINUE 

IF (N.GT.1) AK (NA) =2. * AK(NA) 

25 CONTINUE 
C0NST1=0.0 
C0NST2=0.0 
DO 88 ja3/NCW 
6K = J-1 

<6*<<I-1 )«NCW + J 

C0NST1 =CON ST1 +0. 25*A< ( KG) * ( 1 . /< 1 . -6K ) +1 . / (1 .+GK ) > 

C0NST2=C0NST2+0.25*A<(KG)*(1. / (1. -GK) ★ COS ((1.-GK)*PI)*1./(1.+GK)*C 
10S((1.+GK)*PI) ) 

88 CONTINUE 

C0NST3=0.1 25*AK(<2 ) 

C ONST (K I )= CONS T1 +C ONS T 3 
ALPA0(KI )»C0NST2-C0NST1-AK(K1 ) . 

ALPA (<I ) =ALPAO <KI) *1 80 ./PI 
C DO 29 M=1 / NCW 

M^* = (KI-1 )*NCW + M 
C AKZC (MM)sO.O 
DO 30 K=3/NCW 
F K = K-1 

< D = ( KI-1 ) *NCW+K 

CAM Z C ( M M ) = C.AJ1.Z C ( - 0 . 2 5 * A < ( < D ) *(JI_./( 1 . - F K ) * C 0 S < < 1 . - F K ) * T H E TA K ( M) ) 

1+ 1 ./ ( 1 .+FK) *COS ( (1 . +FK )*fHETAK (M) ) ) ^ 

30 CONTINUE 

C0NST4=- CO NST3*C OS <2. <^THETA<(M)) 

C AMZC (MM)-CAMZC (MM) + ( ALPAO <KI ) + A< ( <1 ) ) *0. 5* < 1 .-COS ( ThETAK (M) ) ) +CON 
1STA+C0NST(KI) 
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29 CONTINUE 
K1=K1+NCW 
K2=K2+NCW 

WRITE (6^126) KI,YLE(KI)/KI^ALPA(KI) 

126 FORMAT (IH ^ ' Y L E ( ' / 1 2 # ' ) = * / F 1 5 . 5^ 5 X / * A L P A 0 ( * ^ I 2 # ' ) = ' ^ F 1 5 . 5 ) 

23 C ONTINUE 

WRITE (6/1 290 

129 FORMAT (IH /'THE CAMBER ORDINATES IN THE WING ALONE CASE’) 

WRITE (6/127) (CAMZC( J J) /J J=1 /LPANEL) 

127 format (IH /6F1Q.5) 

DO 60 1=1 /NCS 

TLE1 (I0 = YL E(I) 

ALPA01 ( I ) = ALPAO( I) 

60 CONTINUE 

DO 65 J=1/LPANEL 
C AM2C1 (J ) = CAMZ C ( J) 

DZOXKl (J )=OZOXK( J) 

GAMI (J) = GAMMA( j ) 

65 CONTINUE 
RETURN 
END 

$ LINK L INK44/LI NK33 

FORTY 

INCOOE I3MF/ 

SUBROUTINE INVMTX 

INVERT THE AUGf^ENTED MATRIX OF THE BOUNDARY CONDITIONS 
parameter JPANEE=80/I PANEL=60 
parameter ITOT AL«2*JPANEE+IPANEL 

dimension 8IGTRX(ITOTAL/ITOTAL)/CONDN(ITOTAL)/AW(300) 

COMMON /COST/ L T OT A L/ L FA N1 /N J W ( 5) / LP A N E L/ I E N TN/ LP A N 2 / E X I T / P T I A L /T W 
1IST/DF(5)/NFP 

COMMON /CONST/ NCS/NCW/M1(8)/NSJ/NCJ(5)/LAST/MJW1 (3/5)/MJW2(3/5)/J 
IP ANEL/MJ J ( 5) /NW ( 3) /NNJ /NJP 
CALL JETN03 ( I T 0 TA L / A W /C ON DN/ B I GT R X ) 

RETURN 
END 
FCRTY 

INCODE IBMF 

SUBROUTINE JETN03 ( I T 0 T A L/ A W/ C OND N / B I G TR X ) 

C INVERT THE AUGMENTED MATRIX BY H.E.M.P. SUBROUTINE 

DIMENSION AW(1 ) /CONON( 1)/BIGTRX(IT0TAL/1 ) 

COMMON /COST/ LT0TAL/LPAN1/NJW(5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1 I ST/ DF (5 ) / NFP 

COMMON /CONST/ N CS / NC W /« 1 ( S ) / N S J / N C J ( 5 ) /L A S T / M J Wl ( 3 / 5 ) / M J W 2 ( 3 / 5 ) / J 
IP ANEL/MJ J ( 5) /NW (3) /NN J /NJP 
REWIND 03 
DO 5 I=1/LT0TAL 
READ (03) (AW(K)/K=1/LT0TAL) 

DO 6 J=1 /LTOTAL 
a IGTRX ( I /J )=AW ( J ) 

6 CONTINUE 
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5 CONTINUE 
LTO=LTOTAL 

CALL SETOIM ( 8 I G TR X ^ L T L T 0 ) 

CALL HEMINV ( B I G TR X , L T 0/- C ON DN ) 

REWIND 09 

DO 9 1=1 #L TOTAL 

WRITE (09) (BIGTRX(I,J)^J=1,LT0TAL) 

9 CONTINUE 
RETURN 
END 

5 LINK L INK55/LINKA4 

$ FORTY 

$ INCODE IBMF 

SUBROUTINE COMJET (KCOOE) 

C FIND ALL MATRICES ARE NEEDED AND STORE THOSE MATRICES ON FILES 

PARAMETER I P AN EL=6 Or I C U=6^ J P A NE E= 8 0 
PARAMETER Jl=2*JPANEErJ7=JPANEE+IPANEL 
EQUIVALENCE ( B I G CX ( 1 r 1 ) r A IJ C 1 r 1 ) ) 

EQUIVALENCE ( R H S I D E < 1 / 1 ) r 8 IJ ( 1 r 1 ) ) 

DIMENSION AIJ < IP ANELr I PANEL) r BIJ ( IPANELr J PANEE) 

DIMENSION FNWW (IPANELr IPANEL) rFNWJ (IPANELrJPANEE) 

DIMENSION AW(300)rBA(3CO)rCA(300)rTHETAI(10),OA(3nO)rAK(IPANEL) 
DIMENSION 9IGCX(IPANELrIPANEL)rB0NDN(ICW)/AA(10)/CX(ICWrICW) 
DIMENSION RHSIOE(JPANEErlPANEL) 

COMMON /AERO/ AM 1 r AM2 r 6l / 8 2r C L ( 30 ) r C T ( 30 ) r C D ( 3 0 ) / 6 A M ( 2r 1 00 ) 

COMMON /ADD/ CP(100)rCM<30)/BREAK(8)rSWP(8r15)rGAL(30)rISYMrVMU/VU 
1 r TEMP/FCS/ CAMLERrC AHLE TrCAMTERrCAMTETr XJr YJrZJ/RJ/ALPrCREFr TWIS TR 
C OMMON /CONST/ NCS/NCW/M1(8)/NSJrNCJ(5)rLASTrMJW1(3/5)rMJW2(3/5)rJ 
1PANEL/MJJ( 5)/NW<3) /NNJrNJP 

COMMON /CL OPE/ DZDXKd GO) / ALP AO ( 1 5 ) / G C B ( 1 00 ) r G C BX ( 1 00 ) r TH E T AK ( 1 0) 
1/CCX (100) rOZDXKdOO) / GAN (2/100) 

COMMON /GEOM/ H AL F S W / X CP ( 2 00 ) / Y CP ( 200 ) / Z C P ( 2 00 ) /X L E ( 5 0 ) / Y L E ( 5 0 ) /X T 
IE (50) /PS I (20) / CH(95) /X V(200) / YV(1 00) / SN( 8 /8 ) / X N ( 200/ 2 ) / Y N ( 200/ 2) / 
2 ZN(200/2)/WIDTh(3)/YC0N(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2)/SC(1 60/5)/SI (160/5)/LC(3) 

COMMON /PARAM/ A LP T / A L FC / A L P S / C OF / S D F / T H / T D F 

COMMON /COST/ LT0TAL/LPAN1/NJW(5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
II ST/0F(5)/NFP 

CALL JETNOA ( B A / RH S I 0 E / J P A NE E / KCO 0 E ) 

CALL JETN05 ( J 7 / AW / CA / RHS I DE/ J PAN EE) 

CALL JETN06 ( A W / BA / C A / A I J / B I J / FNW W / F N W J / I P A N E L / J 1 / J 7/ C X / I C W ) 

RETURN 
END 
FORTY 

INCODE I3MF 

SUBROUTINE JET-NOA (8A/RHS-IDE/JPANEE-/KC0DE-) - 

C SET UP THE RIGHT HAND SIDE MATRIX OF THE BOUNDARY CONDITIONS FOR 

C INDEX=1 

DIMENSION 8A(1 ) /RHSIDE (JPANEE/1 ) 

COMMON /AERO/ A M 1 / AM2 / Bl / B 2/ C L ( 30 ) / C T ( 30 ) / C D ( 30 ) / G AM ( 2/ 1 00 ) 

COMMON /ADD/ C P ( 1 00 ) / C M ( 30 ) /8 R E AK ( 3) / S WP ( 8 / 1 5 ) / G A L ( 30 ) / I S Y M/ V M U / V U 
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UTEMP/FCR/CAMLER^CAMLET^CAMTER^CAMTET^XJ^YJ^ZJ^RJ/ALP/CREF/TWISTR 
COMMON /CONST/ NCS/NCW/M1(8)^NSJ/NCJ(5)/LAST^MJW1 ( 3 /5 ) ^MJ W 2 ( 3 / 5 ) ^ J 
IP ANEL/MJ J ( 5) /NW ( 3) ^NNJ /NJP 

COMMON /COST/ LTOTAL^LPANl#NJW(5)^LPANEL^IENTN^LPAN2/’EXlT/PTIAL/TU 

1 I ST/0F(5)^NFP 

COMMON /GEOM/ H A LF S X C P < 2 00 ) / Y CP ( 200 ) /.Z C P ( 2 00 ) /X L E ( 50 ) ^ Y L E ( 5 0 X T 
1E(50)/PSI(20)^ CH(95)/ XV(200)^YV(1 00) /SN< 8^8 ) ^X N( 200/ 2) ^YN< 200^ 2) ^ 

2 ZN(200/2)/WIDTH<8)/YCCN(25)/SWEEP(50)/HALFB/SJ(21/3)/EX(95/2)/TX( 
39 5/2) /SC (1 60/5 ) /SI <160/5) /LC( 3) 

COMMON /PARAM/ A LP T / A L PC / A LPS / C DF / S D F / TH / T 0 F 

COMMON /SCHEME/ C(2)/X(10/41)/Y(10/41 )/ SLOPE (1 5)/XL<2/15)/XTT(41)/ 
1XLL(41) 

VMUC=VMU*ALPC 

IPHI=1 

M J=LPANEL+NCJ ( 1 ) 

I NN=1 
J NN = 1 

DO 1 KI=1/JPANEL 

LI=LAST+KI 

KJ=LI 

IF (LI .GT. LAST) KJ=LI“JPANEL 

CALL STREAM ( A LP HA / VMU C/ L I / IPH I /L PAN E L / TE MP/ LP A N1 / L PA N2/ I S YM/ 

IK CODE/EX IT /MJ / 1 /BA) 

IF (KJ .LT. MJ .OR. KJ .EQ. LAST) GO TO 50 
I PHI=IPHI+1 
MJ =MJ+NC J ( INN) 

50 CONTINUE 

M J I=MJ J ( INN)-1 
I F C KJ . EQ . MJ I ) GO TO 55 
GO TO 60 
55 JNN=INN 
INN=INN+1 

60 IF (KJ ,EQ. MJJ(JNN)) IPHI=1 
DO 2 I=1/LPANEL 
2 RHSI OE(KI/ I)=-BA(I ) 

1 CONTINUE 

RETURN 
END 

$ FORTY 

$ INCODE I3MF 

SUBROUTINE JETN05 ( J 7 / AW / C A / R H S 1 0 E / J P A NE E ) 

C find the derivatives OF (DGOJ/DGWO) AND (OGWA/OGWO) AND STORE 

C THOSE DERIVATIVES ON FILE (12) 

D IMENSION AW( 1 ) / RHS ID E (J PANEE/ 1 )/ C A( 1 ) 

COMMON /CONST/ N CS / N C W /M 1 ( 8 ) / N S J / N C J ( 5 ) /L AS T / M J Wl ( 3 / 5 ) / M J W 2 ( 3 / 5 ) / J 
1PANEL/MJJ(5)/NW(3) /NNJ /NJP 

COMMON /COST/ LT0TAL/LPAN1/NJW(5)/LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1 I ST/DF (5)/NFP 
REWIND 1 2 
DO 1 1=1 /L PANEL 

REWIND 09 
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DO 3 L = WJPANEL 
READ (09) (AW(M)^M=1/LT0TAL) 

3 CONTINUE 

DO 2 J = UJ7 

READ (09) (AW ( M) /M=1 ^LTOTAL) 

CA(J)=0.G 
DO 2 <=1^JPANEL 

2 CA(J)=CA(J )+AW(K)*RHSIDE(K^I) 

1 WRITE (12) ( CA(M)^M=1 ^ J7) 

RETURN 
END 

FORTY 

INCOOE I8MF 

SUBROUTINE JETN06(AW^BA/CA/AIJ^BI J / F N W W ^ F NW J / I P AN E L / J 1 ^J7^ CX/ I C W) 

C FIND THE MATRICES (A) AND (B) AND STORE THOSE MATRICES 

C ON FILE (11) ^ ALSO COMPUTE THE DERIVATIVES OF CAMBER SLOPES AND 

C STORE IT ON FILE (10) 

DIMENSION AW(1)/BA(1)/CA(1)/AIJ(IPANEL^1)^BIJ (I PANELED 
DIMENSION FNWW (IPANEL^1)#FNWJ(IPANEL^1)/CX(ICW^1) 

COMMON /CONST/ NCS/NCWi.M1(8)^NSJ^NCJ(5)/LAST/MJWl(3/5)/-MJW2(3/5)^J 
IPANEL^MJJ (5) /NW(3) #NNJ ^NJP 

COMMON /CLOPE/ 0 Z D X K ( 1 CO ) ^ ALP AO ( 1 5 ) /6 C 8 ( 1 00 ) ^ G C 8X ( 1 00 ) ^ TH E T AK ( 1 0) 
WCCX(100)/0Z0X<(100)^GAN(2/100) 

COMMON /COST/ LTOTAL^LPANl ^NJW(5) / LP A N E L / I E NTN / LP A N 2 / E X I T ^ PT I AL ^T W 
1IST,DF(5)/NFP 
DO 19 1=1, NCU 
DO 19 J=1,NCW 
IK=( I-1)*NCW+J 

19 CX(I/J)=CCX(IK) 

REWIND 03 
D020J=1,J1 

READ (03) ( AW ( K) ,<=1 ,L TOTAL) 

20 CONTINUE 

DO 2 1=1 /LPANEL 

READ (03) (AW(tO,<=1,LTOTAL) 

DO 3 J=1 ,J PANEL 
JJ=JPANEL+j 

3 FNWJ (I/J )=AU(J J) 

DO 4 K=1 ^LPANEL 
K<=J1+K 

4 FNWW ( I /lO = AW(KK) 

2 CONTINUE 
REWIND 11 

DO 13 1=1 /NCS 
DO 13 IK=1 ,NCW 
I I=( 1-1 ) *NCW-H< 

DO U J=1 , LPANEL . 

AIJ(II/J)=0. 

DO 1 4 L=1 , NCW 
LL=( 1-1 ) *N CW+L 

14 AIJ(II/J)=AIJ(II,J)+CX(IK/L)*FNWW(LL,J) 
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DO 15 JK = 1 ^JPANEL 
8 I J ( ii ^JO =0. 

DO 15 LK=1 >NCW 
LN=( 1-1 ) *N CW+LK 

15 8 IJ ( I <) =BI J ( I J K) +CX ( I KyLK) *F NWJ ( LN/ JK) 

1 3 C ONTINUE 

29 CONTINUE 

00 16 I=1#LPANEL 
00 11 IK=1 ^JPANEL 

11 CA(IK)=8IJ (I<-IK) 

00 12 JK=1#LPANEL 
MK^JPANEL+JK 

12 CA(MK)=AIJ 

WRITE <11) <CA(LK) ^LK=1/J7) 

16 CONTINUE 

R E W I N 0 1 2 
R E W I N 0 1 0 
DO 8 I=1#LPANEL 
REWIND 11 

READ (12) <AW(L)^L=1/J 7) 

DO 10 J=1#LPANEL 

READ (11) (CA(L)#L = UJ7) 

8A(J)=0.0 
DO 9 Ksi,J7 

9 8A(J)sBA(J )+CA<K)*AW(K) 

10 BA(J)=AIJ(J^I)+BA(J) 

WRITE (10) (BA ( M)/M*1 ^ LPANEL) 

8 CONTINUE 
RETURN 
END 

$ LINK L INK66/LINK55 

$ FORTY 

S I NC ODE IBMF 

SUBROUTINE J E T NO L ( K CO D E) 

C THIS SUBROUTINE DETERMINE THE OPTIMUM CAMBER SHAPE AND TWIST 

C DISTRIBUTION WITH SPECIFIED LIFT AND PITCHING MOMENT CONSTRAINTS 

C IN THE JET ON CASE WITH UP P ER- SUR F AC E -BLOW I N G AND ZERO LEADING 

C EDGE SUCTION 

PARAMETER I P AN E L =60 / I C U=6 ^ J PA NE E= 80 

PARAMETER J7=JPAN£E+IPANEL^Jl=2*JPANEE^LLl=(IPANEL+3)**2/A+1 
DIMENSION GAMM A( LL 1 ) rC 01 I ( 20) /•OAMZ C ( I PANEL) 

DIMENSION AW(300)/8A(3CO)/CA(300)/OA(300)/THETAI(10)/PAM80A(2) 
DIMENSION GAMMT(IPANEL)/GAMAA(IPANEL)/GAMOJ(JPANEE)/GAT(IPANEL) 
DIMENSION C AMZ C ( IPANEL )/CONST ( IPANEL ) / AK ( IPANEL ) /RHS ( 300) 

DIMENSION 30NDN ( IC W) # W A( 10 ) /BIGCX ( IPAN EL^ IP ANEL )/ CX ( I CW, I C W) 

COMMON /ADO/ C P ( 1 00 ) ^ C M( 30 ) / B R E AK ( 8 ) /■ S WP ( 8 / 1 5 ) ^ GA L ( 30 ) ^ I S Y M^ VMU xV U 
1/TEMP/FCR/CAMLER^CAMLET/CAMTER^CAMTET/XJ/YJ,ZJ#RJ/ALP/CREF/TW1STR- 
COMMON /AERO/ A M 1 ^ A M2 / Bl / 8 2 ^ C L ( 30 ) < C T ( 30 ) / C 0 ( 30 ) ^ G A M ( 2 ^ 1 00 ) 

COMMON /CL OPE/ DZD XK ( 1 00 ) ^ ALP AO (1 5 ) , GC B( 1 00 ) ^GC BX ( 1 00 ) ^THE TAK ( 1 0) 

1 #• CCX (1 00 ) ^OZDXK( 10 0) # G AN(2 ^100) 

COMMON /LING/ G L BA R / G M BA R r F CL 1 1 # F C MI I 
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COMMON /wLONE/ D Z 0 XKW ( 1 0 0) ^ GA M W ( 1 00 ) / C AMZ C W ( 1 00 ) # AL PA OW ( 2 0 ) 

COMMON /CONST/ NCS/NCW/Ml(8)^NSJ^NCJ(5)/LAST/MJWl<3^5)^MJU2(3#5)/J 
1PANEL^MJJ<5)/NW(3^ /NNJ /NJP 

COMMON /COST/ L T OT AL^ L F A N1 ^ N J W ( 5) # LP AN EL /• I EN T N^ LP AN 2 / E X I T / PT I A L ^T W 
II ST^DF(5)^NFP 

COMMON /GEOM/ H AL F S W / X CP ( 2 00 ) # Y CP ( 200 ) / Z C P ( 2 00 ) /X LE ( 5 0 ) ^ Y L E ( 5 0 ) vX T 
1E(50)*PSI(20)/ CH (95) / X V(200I>YV(1 00) / SN( 8/8 ) ^XN( 200^ 2 ) / YN ( 200/ 2) / 

2 .ZN( 200/2) / WIDTH(8)/YC0N(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX{ 
395/2)/SC(1 60/5) /SI(160/5)/LC<3) 

COMMON /PARAM/ A LP T / A L PC / A LPS / C DF / S D F / TH / TD F 

COMMON /lOENT/ DZOXKl (100)/GAM1(100)/CAMZC1C100)/ALPA01(20)/YLE1(2 
10) 

CALL INVRCX < T H E T A I / 0 0 NON/ W A/ I P AN E L/ S I G C X / A K/ I C W/ C X ) 

13 FORMAT (3F10. 5/110) 

14 FORMAT (1H / ' C L 1 1/ CM 1 1 /O EL T A/ M A XP * ) 

15 FORMAT (1H /'NUMB/SIZE •) 

33 FORMAT (I10/F10.5) 

DC 44 I=1/NCS 
ALPAOW (I )=0. 

DO 46 J=1 /NCS 
AA = 1. 

DO 47 L=1/NCS 
I F (L.EQ. J ) GO TO 47 

AA = AA* (YLE (D-YLE1 (L) ) /( YLE1 ( J )-YLE1 (L) ) 

47 CONTINUE 

ALPA0W(I)=ALPA0W(I)+AA*ALPA01(J) 

46 CONTINUE 
44 CONTINUE 

DO 4 1*1 /NCS 
D O 5 K*1 /N CW 
J J = ( 1-1 ) *N CW+K 
GAMW(JJ)=0. 

C AMZ CW ( J J ) =0. 

DZDXKW(JJ) =0. 

DO 6 J=1 /NCS 
I I=( J-1 ) ♦NCW+K 
AA = 1. 

DO 7 L=1/NCS 
I F (L.EQ.J ) GO TO 7 

AA = AA*(YLE (D-YLE1 (L) ) /(YLE1 (J)-YLEI (D) 

7 CONTINUE 

G AMW ( J J ) =G AMW< J J )♦ AA*G AMI ( I I) 

DZDXKW(JJ)=DZDXKW(JJ)+AA*DZDXK1(II) 

CAMZCW(JJ) =CAMZCW(JJ) +AA*CAMZC1 (I I) 

6 continue 

5- -C-Ont^i nue ' -- - • ' ,■ - ' - 

4 CONTINUE 

DO 20 1=1 / LPANEL 
D ZDXK( I)=DZDXKW( I) 

G AM( 1 / I ) =G AMW ( I ) 

20 G AMC 2/ I) =GAM( 1 / I ) 
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*** LIFT CONSTRAINT^ PITCHING MOM E N T C ON S T I NT ^ INITIAL STEP SIZE 
AND MAXIMUM NUMBER OF ITERATIONS *** 

W R I T E ( 6 ^ 1 A ) . 

READ (5/13) CLBAR/ CM8AR/0ELT0/MAXP 
WRITE <6/1 3)CLBAR/CM3AR/0ELT0/MAXP 
C 

C *** NUMBER OF INTERMEDIATE CYCLES WHICH ARE NEEDED TO REDUCE THE 
C INITIAL COMPUTED LIFT AND PITCHING MOMENT COEFFICIENTS TO THE , 

C CONSTRAINTS/ THE ASSUMED STEP SIZE IN THE JET ON CASE *** 

WRITE (6/15) 

READ (5/33) NUMB/SIZE 
WRITE (6/33) NUMB/SIZE 
C 

N=0 
ITN = 0 
NC0UNT=0 
38 CONTINUE 

IF (ABS(CLII-CLBAR) .LT. 0.00001 ) GO TO 508 
I F (ITN. GT. 2) GO TO 502 
GO TO 590 
508 CONTINUE 

N eciuNT = NCpUNT+ 1 
DO 560 1 *1 /LPANEL 
QAMZC(I)=CAMZC(I) 

560 CONTINUE 

WR I TE (6/565) N COUNT /DELTA 

565 FORMAT (1hO/'THE'/I3/'TH ITERATION IN THE FINAL CYCLE/ DELTA*'/ 
1F10.3) 

590 continue 
N=N+1 

502 {lONTINUE 

DO 31 I=1/LPANEL 
OCLII-CLII 
OeMII=CMII 
GAN(1 /I) =GAM(1 /I) 

GAN(2/I)=GAM(2/I) 

G AT< I)=GAMMT( I ) 

OZDXK( I) =D7DXK < I ) 

31 CONTINUE 

IF (A8S(CLII-CLBAR).LT. 0.00001 ) GO TO 505 
I F ( ITN.GT .2) GO TO 1 9 
I.F (N.EQ.1 ) GO TO 32 
505 CONT INUE 

IF <A8S(CLII-CL8AR).GT.0,00001) WRITE (6/200) D EL TA / I TN/NUMB1 
200 FORMAT <1H0/'DELTA='/F10.3/5X/I2/'TH ITERATION 0F'/I2/'TH INTER 
1ME0IATE CYCLES') 

call JETN07 ( G AMMA/8A/ OELT A/AW/CA /CLI I /CMI I/PAMBOA/GAT/J 7) 

32 CONTINUE 

CALL JETN08 (RHS/KCODE) 

CALL JETN09 (GAMMT/GAM0J/GAMAA/RHS/AW/BA/CA/J'7/N/CDII/CLII/CMII/ 
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1 C LBAR^CMBAR/NUMB^I TN) 

IF (N.EQ.1) call camber < AK /■ C A MZC ^ C ON S T / G AMM A/ B A^ N / MA XP ) 

I F (N.EQ.1 ) CALL LOAD 

IF (ABSICLII-CLBARO.LT .0.00001 ) GO TO 555 
I F (iN. EQ.1 ) GO TO 80 
IF (ITN.E0.1) GO TO 89 
555 CONTINUE 

I F (CDII(ITN).GT.CDII (ITN-D) 60 TO 29 
89 ITN=ITN+1 

60 TO 79 ■ 

19 CONTINUE 

FCLI I=FCLI I-GLBAR 
F CMI I=FCMI I-6MBAR 
NUMB1=NU«B1+1 
OELTA=DELTO 
I TN=1 
GO TO 68 
29 CONTINUE 

DELTA=0.5*OELTA 
ITN=ITN+1 
00 49 1=1/ LPAN EL 
G AM ( 1 / I )=6 AN( 1 / I) 

GAM(2/I)=GAN(2/I) 

6AMMT( I) =GAT(I ) 

OZOXKC I)=OZOXK (I) 

.CLII=0CLII 
CMII=OCMII 
49 continue 
GO TO 63 
80 ITN=1 

OELTA=OELTO 
NUMB1=1 
60 TO 68 
79 CONTINUE 

IF (A8S(CLII-CLBAR).LT.0.00C01) GO TO 540 
IF (ITN.GT.2) GO TO 63 
540 OELTA=SIZE 
68 CONTINUE 

IF (ABS(CLII-CLBAR).LT.O.OOGOI) CALL CAMBER C AK / C AM Z C / C ON S T/ G A MMA / 
1BA/N/MAXP) 

IF (NCOUNT.EQ.O) GO TO 561 
SUM=0. 

DO 562 I=1/LPANEL 
SUM=SUM+ (C AMZC < I )-OAMZ C< I ) ) **2 

562 CONTINUE 

RMS=SQRT (SUM) / ( F LO A T ( L P A NE L ) * C R EF ) __ _ _ 

WRITE (6/ 563) RMS ” ' ’ ' > 

563 FORMAT (1H /’THE ROOT MEAN SQUARE OF CAMBER OR D I N AT E S = ’ / F 1 5 . 5 ) 

561 CONTINUE 

I F (n.lt.maxp) go to 38 

CALL LOAD 


133 


.02 -1,8- 7.8 0 2. 1 77 

RETO.R,N 

.END 

$ FORTY 

$ INC OPE IBMF 

SUBROUTINE JETN07 ( GA MKA ,^3 A ^ 0 E L T A ^ A W ^ C A ^ CL I I / C M 1 1 / P AM BD A ^ G A T / J 71 
C CALCULATE THE NEW WING-ALONE VORTEX STRENGTH AND THE CAMBER SLOPE 

DIMENSION AW(1 ) ^OA ( 1) # CA (1 ) ^GAMMA ( 1 ) ^PAMBDA ( 1 ) ^GAT < 1 ) 

COMMON /AERO/ AM 1 , AM2 / El ^B 2 ^ C L ( 30 ) /- C T ( 30) ^ C D < 3 0 ) / GAM ( 2/ 1 00 ) 

COMMON /CLOPE/ 0 ZD XK (1 CO ) / ALP A0(1 5 ) / GC B ( 1 00 ) / G CBX ( 1 00 ) , T HE TAK ( 1 0) 
1^CCXC100)^02DXK(100)/GAN(2/100) 

COMMON /CONST/ NCS#NCW/Ml(8)/NSJ^NCJ(5)/LAST/MJWl (3^5)^MJW2(3#5)#J 
1PANEL/MJJ(5)/NW(3)^NNJ,NJP 

COMMON /GEOM/ HALFSW^XCP(200>^YCP(200)^ZCP(200)^XLE{50)^YLE(50)/XT 
1E(50)/PSI(20)#CH(95)/XV(200)/YV(100)/SN( 8^8),XN(200^2)^YN(200^2>^ 
2 ZN(200^2) yWIDTH(8)/.YC0N(25)/SWEEP(50)^HALFB/SJ(21/8)^EX(9 5^2)/TX( 
395/2)^SC{16Q^5)/SI<160/5)^LC(3) 

COMMON /LING/ GLBAR/GMBAR^FCLIWFCMII 

COMMON /COST/ LT0TAL/LPAN1^NJW(5)^LPANEL/IENTN/LPAN2/EXIT/PTIAL/TW 
1IST»0F(5)/NFP 
PI=3.141 59265 
L1=LPAN£L+1 
L 2 = LPANEL + 2 
L3=LPANEL+3 
REWIND 12 
R EW I NO 1 0 
REWIND 08 
DO 71 Isl/LPANEL 
DO 72 J=1/LPANEL 
I F < J .EQ, I) GO TO 73 
CA(J)=0.0 
GO TO 72 
73 CA(J)=1.0 

72 CONTINUE 

READ (12) (AW(L)^L=1/ J 7) 

CA(L1 )=0.0 

CA(l2)=0.0 

DO 60 L=1^LPANEL 

LL=JPANEL+L 

C A(L1 )=CA< _1 )+GC3(L)*AW(LL) 

60 C A (L2)=C A( L2 ) + GCBX <L) • AW (LL) 

CA(L1)=CA<L1)+GCB(I) 

C A(L2)=CA(L2)+GCBX (I) 

CA(L1)=PI**2*CA(L1)*0ELTA/(HALFSW*2.) 

C A (L2) =P I* *2*C A < L2 ) *DELT A/ (HAL FSW *2. ) 

BDGW=0.0 

DO 14 M=1/LPANEL 
MM=JPANEL+M 

aDGW=8DGW+ (GC3(M)*0ZDXX(M)*AW(MM)) 

14 CONTINUE 
ADGW=0.0 

READ (10) (BA ( L ) ^L=1 >• L PANEL) 
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DO 74 <=1,LPANEL 

ADGW = AOGvJ+(GCB(K)*BA(<)*GAT(K)) 

74 continue 

A0GW=-<A0GW+B0GW+6C3(I)*0ZDXK(I>) 
CA(L3)=ADGW*PI**2*DELTA/(HALFSW*2.) 
WRITE (08) (CA(KK) ^KK=1,L3) 

71 CONTINUE 
REWIND 12 
DO 75 K=1/LPANEL 
READ (12) (AW< J)^J=1#J 7) 

CA(K)=0.0 

DO 16 I=ULPANEL 

I I=J PANEL+ I 

CA(lO = CA(K)+GCB(I)*AW(II) 

16 CONTINUE 

CA(K)=GC8(K)+CA(K) 

CA(K)=CACK)*PI*PI/(HALFSW*2.) 

75 CONTINUE 
CA(L1)=0.0 
CA(L2)=0.0 
CA(L3)=CLI I-FCLI I 

WRITE (03) (C A ( J )^ J = 1 / L3) 

REWIND 12 

DO 76 L=1/LPANEL 

READ (12) (AW( I)^I=1^J 7) 

CA(L)=0.0 

DO 1 8 J=1/ LPANEL 

J J = JPANEL+ J 

CA(L)=CA(L)+GCBX(J)*AW(JJ) 

13 CONTINUE 

CA(L)=GC8X (L)+CA(L) 

C A(L) = CA (L) *PI *PI/ (HAL FSW*2.) 

76 CONTINUE 

C A(L 1) =0.0 

CA(L2)=0.0 

C A(L3)=CMI I-FCM II 

WRITE (OS) (CA(J)/J=1 /L3) 

REWIND 03 

READ (03) (AW( I)/I=1/L3) 

DO 77 l=^,L2 

GAMMA( I )=- AW( I +1 )/ AW( 1 ) 

77 CONTINUE 
NJ=L2-1 

DO 78 IJ=2 /L2 

READ- (0 8) (AW( I ) /I-=-UL 3) - 

I K = IJ 

CALL VMSEQN ( N J ^ I X / AW / GA MM A ^C A ) 
NJ=NJ-1 

78 CONTINUE 

P AM8DA( 1 ) = GAMM A (Li ) 
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P /SMBD A (2> = GAMM A (L2 ) 

DO 36 I=1^LPANEL 
G AM( 1 ^ I )=G AN( 1 # I ) + GAMM A( I) 

G AM( 2^ I) =G AN (2/ r )+GAMM A( I) 

36 CONTINUE 

R EWI ND OA , 

00 21 I=1/LPANEL 
READ (04) (AW(K)^K = WlPANEL) 

0 ZDXKd )=0. 

DO 22 J=ULPANEL 

0 Z DXK ( I ) =D ZOXK < I ) + AW( J ) *GAM(1 ^ J ) 

22 CONTINUE 
21 CONTINUE 
RETURN 
END 
FORTY 

INCCOE I8MF 

SUBROUTINE JETN08 (RHS/KCODE) 

C SET UP THE RIGHT HAND SIDE VECTORS OF THE BOUNDARY CONDITIONS 

C F0RINDEX=2 

DIMENSION RHS(I) 

COMMON /AERO/ A M 1 / A M2 / SI /B 2 ^ C L ( 30 ) # C T ( 30 ) ^ C D ( 30 ) / G A M ( 2/ 1 00 ) 

COMMON /ADO/ CP ( 1 00 ) / C M ( 30 ) ^B R E AK ( 8) ^ S WP ( 8/ 1 5 ) / GA L ( 30 ) / I S Y M/ VM U ^VU 
1/TEMP/FCR#CAMLER/CAMLET^CAMTER/CAMTET/XJ/YJ^ZJ^RJ/ALP^CREF^TWISTR 
COMMON /CONST/ NCS/NCW/M1(8)^NSJ^NCJ(5)^LAST^MJW1(3^5)/MJW2(3^5)/J 
1PANEL/MJ J ( 5) /NW(3) ^NNJ ^NJP 

COMMON /COST/ LT0TAL/LFAN1/NJW(5)#LPANEL^IENTN<>LPAN2/EXIT^PTIAL^TW 
1IST/0F(5)^NFP 

COMMON /GEOM/ HALFSW/XCP(2 0C)^YCP(20 0)<ZCP(2 00)^XLE(50)^YLE{50)4^XT 
1E(50)»PSI(20)/CH(95)/XV(200)/YV(100)^SN( 8/8)/XN(200^2),YN(200#2)# 
2 ZN( 200/2)/WlDTri(8)/YC0N(25)/SWEEP(50)^HALFB/.SJ(2U8)/EX(95/2)/TX( 
395^2) ^SC (1 60^5) ^SI ( 160^5)/LC(3) ‘ 

COMMON /PARAM/ A LP T / A L PC ^ A L P S ^ C D F /• S D F ^ T H /■ T D F 

COMMON /SCHEME/ C ( 2 ) ^ X (1 0^ 4 1 ) /• Y ( 1 0 / A 1 ) ^ S LOP E ( 1 5 ) ^ X L ( 2 ^ 1 5 ) ^ XTT ( A 1 ) ^ 
1XLL(A1) 

NA = 3 

IF (NW(2) .EQ. Q) NA= 1 

IF (NW(2).NE. 0 .AND. NW<3) ,EQ. 0) NA=2 

ZZ=YCON<25 J 

DFJ=CDF 

VMUC=VMU*ALPC 

IPHI=1 

M J=LPANEL + NCJ ( 1 ) 

1 NN=1 
J NN = 1 
K 1 = 1 

L I=LAST + 1 

IH=NW(NA)+MJW1 (NA<NJP)-1 
AO KJ=LI 

IF (LI ,GT. LAST) KJ=LI-JPANEL 

CALL STREAM (ALPHA#VMUC#LI^IPHI^LPANEL^TEMP^LPANWLPAN2xISYM<> 
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lKGODE/6xit^MJ>2/BA) 

I F UCODE .EQ. 0) GO TO 63 
IF (ZZ .GE . OiOl ) GO TO 63 
C 

C ADDITIONAL EXTERNAL F L OW DE F L E CT I ON IS ALLOWED IF TH E J E T AN G L E I S 
C GREATER THAN THE FLAP ANGLE BECAUSE OF THE EFFECT OF FINITE TRAI 

LING-EDGE ANGLES. FOR THIN AIRFOILS^ THIS CAN 3E ELIMINATED BY 
INSERTING THE STATEMENT^ IF (KC0DE.EQ.1) GO TO 63 

IF (LI .GE. MjWl(NA/NjP) .AND. LI .LE. MJ W2 ( N A ^ NJ P) ) GO TO 62 
GO TO 63 

62 IF (LI .NE. IH) GO TO 63 
IF((DFJ-TDF) .LT. Q.) GO TO 63 
CZT=CAMTER-(CAMTER-CAMTET) *YCP(LI)/HALFB 
APA=0. 5* (D Fj-TOF+C ZT) 

IF (\/MU .GT. 0.85) AP AsAPA* (1 .-VMU) /O. 1 5 
I F (APA .LT. 0.) APA=0. 

ALPHA=ALPH A+APA 
IH=IH+NW(NA) 

63 CONTINUE 
RHS(KI)=-ALPHA 

45 IF (KJ .LT. MJ .OR. KJ .EQ. LAST) GO TO 50 
iPHl=IPHI+1 
M jsMJ+NC J ( INN) 

50 CONTINUE 

MJISMJ J ( INN) -1 
IF (<J . EQ . MJ I ) GO TO 55 
60 TO 60 
55 JNN=INN 
I NNs INN+ 1 

60 IF (KJ .EQ. Mjj(JNN)) IPHI=1 
IF (lI .EQ. LTOTAL) GO TO 65 
GO TO 70 
65 CONTINUE 
IPHI=i 

MJ=LPANEL+NCJ (1 ) 

J NN = 1 
INN=1 

70 CONTINUE 
Ki=KI+1 

IF (LI .EQ. LTOTAL) 60 TO 75 
IF (LI .EQ . LAST) GO TO 80 
LI=LI+1 
G0T085 
75 LI=LPANEL+1 
GO TO 85 
80 LI=1 
85 CONTINUE 

IF (KI .LE. LTOTAL) 60 TO 40 
RETURN 
END 
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$ FORTY 

S INC ODE 1 8MF 

SUBROUTINE J ETN09 ( GA M MT AMO J ^ GA M A A ^ R HS / A W ^ B C A ^ J 7,N/C0 I l>rCL I 

1 CMIl/CLBAR^CMBAR^NUMS/ ITN) 

C FIND THE JET VORTICES IN THE OUTER FLOW AND THE W ING ADO I T I ON AL 

C VORT ICES 

DIMENSION AW( 1 I ^BA < 1 ) ^ RHS< 1 ) ^GAMMT (1 ) >'GAMOJ (1) /GAMAA( 1 ) 

DIMENSION CDII (1 ),CA(1 ) 

COMMON /AERO/ AM1/AM2 /El ^B 2 ^C L < 30 ) / C T ( 30 > ^ C D ( 3 0 ) / G AM ( 2 ^ 1 00 ) 

COMMON /CL OPE/ OZOXKd CO ALP A 0(1 5 ) / G C 8 < 1 00 ) / G C BX ( 1 00 ) / TH E T AK ( 10) 

1 /CCX (100)/0Z0XK (100)^GAN(2^100) 

COMMON /LING/ GL BA R ^G MBA R # f CL 1 1 # F C M 1 1 

COMMON /ADO/ C P < 1 00 ) ^ C M( 30 ) ^ BR EAK ( 8 )# S WP ( 8^ 1 5 ) /GAL< 30 ) / I SO M# VM U ^VU 
1 ^ TEMP^FC R# C AML ER #C AML E T^ C AMT E R / C A M TE T / X J / Y J / Z J ^ RJ ^ALP^CREF/TWISTR 
COMMON /PARAM/ ALP T^ A L PC / A LPS ^ C D F ^ S D F /- TH r TD F 

C OMMON /6E0M/ HALFSW,XCP(2 00)/YCP (200) /ZCP(200)^XLE(50)/-YLE(50)^XT 
1E(50)#PSI(2Q)/CH(95)^XV(200)^YV(100)^SN( 8^ 8 ) / X N ( 200# 2 ) / Y N ( 200/ 2) # 

2 ZN( 200/2) /WIDTH(8)/YC0N(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2)/SC(160/5)/SI(160/5)/LC(3) 

COMMON /CONST/ NCS/NCW/M1(8)/NSJ/NCJ(5)/LAST/MJWl(3/5)/MJW2(3/5)/J 
1 PANEL/MJ J ( 5) /NW( 3) /NNJ /NJP 

COMMON /COST/ LT0TAL/LFAN1/NJW(5)/LPAN£L/IENTN/LPAN2/EXIT/PTIAL/TW 
1 I ST/0F(5)/NFP 
PI=3. 141 59265 
REWIND 09 
DO 9 1=1 /J PANEL 
READ (09) (AW(K)/<=1/LT0TAL) 

9 CONTINUE 

DO 1 1 = 1 /J 7 

READ (09) (AW(K)/K=1/LT0TAL) 

8A(I)=0.0 

DO 2 J = 1-/LT0TAL 

2 B A( I ) =BA ( I ) +AW ( J )*RHS ( J) 

1 CONTINUE 

DO 3 1 = 1 /J PANEL 
G AMOJ ( I ) =B A( I ) 

3 CONTINUE 

,00 4 1 = 1 /L PANEL 
I I = JPANEL+ I 
GAMAA(I)=BA(1I ) 

4 CONTINUE 

DO 5 1=1 /LPANEL 

GAMMT( I)=GAM(1 /I) + GAMAA( I) 

5 CONTINUE 

00 21 I=1/LPANEL 
C P( I )=GAMMT ( I ) *2.* ALPC 
21 CONTINUE 
C LI I =0.0 
CM 11=0.0 
C0II(ITN)=0.0 
DO 50 I =1 /LPANEL 
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C 01 1 ( ITN) = C01 1 ( ITN)+GCB( I) *0Z DXK( I >*GAMMT ( I ) 

CLII=CLI1 + GC8< I) *GAMMT (I) 

CMI I =CMI I+GC3X ( I) *GAMMT( I ) 

50 CONTINUE 

coil (ITN)=-PI**2*C Oil ( IT N) / (halts W*2 . ) 

CLII=PI*PI *CLI I/(HALFSW*2. ) 

CMII=PI*PI *CMI 1/ (HALFSU*2. ) 

WRITE (6^134 3 COIKITN) 

134 FORMAT (1H ^'INOUCEO DRAG COEFFICIENT/ C D 1 1 = * / F 1 5 . 5 ) 

WRITE (6/135) CLII 

135 FORMAT (1H /'LIFT COEFFICIENT/ CL 1 1 = ' / F 1 5 . 5 ) 

WRITE (6/136) CMII 

136 FORMAT (1H /'PITCHING MOMENT C 0 EF F I C I E NT / CM I I = ' / F 1 5 . 5 ) 

I F (N.GT.1 ) GO TO 30 

OLBAR=CLII-CLBAR 
OMBAR=CM I I-CMB AR 
GLBAR=DL9AR/NUMB 
GMBAR=DMBA R/NUM8 
FCLI I=CL II -GL8AR 
FCMH = CMII-GM3AR 
30 CONTINUE 
RETURN 
END 

$ FORTY 

$ INCODE I8MF 

SUBROUTINE CAMBER ( AK / C AM Z C / C ONST / G AMM A/ B A / N BC / M A XP ) 

C COMPUTE THE CAMBER ORDINATES AND THE TWIST DISTRIBUTION 

DIMENSION ALPA(15) 

DIMENSION AK ( 1 ) /CAMZC ( 1) /CONSTd ) /GAMMAd ) /8A( 1 ) 

COMMON /CL OPE/ D Z 0 X K ( 1 CO ) / AL P AO (1 5 ) / G C B ( 1 00 ) / G C 3X (1 00 ) / TH E T A< ( 1 0) 
1/CCX (100)/0Z0XK(100)/GAN(2/100) 

COMMON /GECM/ HALFSW/ XCP(200) /YCP (200) /ZCP(200) /XLE(50) /YLE(50) /XT 
1E(50)/PSI(20)/CH(95)/XV(200)/YVd00)/SN( 8/8)/XN(200/2)/YN(200/2)/ 
2 ZN( 200/2) /WIDTH(S)/YCCN(25)/SUEEP(5C)/HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2)/SC (1 60/5 ) /SI (160/5)/LC(3) 

COMMON /CONST/ NCS/NCW/MK8)/NSJ/NCJ(5)/LAST/MJWl(3/5)/MJW2(3/5)/J 
1PANEL/MJJ ( 5)/NW(3) /NNJ /NJP 

COMMON /WLCNE/ DZDXKw(100)/GAMWdOO)/CAMZCW(100)/ALPAOW(20) 

COMMON /COST/ L TOT AL / L P A N 1 / N J W ( 5) / LP A N E L / I E NT N / LP A N 2 / E X I T / PT I A L /T W 
1 I ST/OF( 5) /NFP 

102 FORMAT (1H /'THE TWIST DISTRIBUTION IN THE SPANWISE DIRECTION') 

P 1 = 3.1 41 59265 
NW2 = NW (1 ) + NW(2) 

I F (NW (2) . EQ.O ) GO TO 48 
II=NCS+1 

IJ (NW(3)_.NJ. Oi GO LO J0-_ _ 

CH0R0=CH(1 )+CH( II) 

XX1 = CH(1 )/ CHOR D 
THETA1=ARC0S(1.-2.»XX1) 

THETA2=PI 
GO TO 51 
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50 III=II*NeS 
C H0R0=CH (1 ) + CH { I I) +CH < II I) 

XX1=CH(1)/CH0RD 
TH£TA1=ARCOS(1 .-2. *XX 1 ) 

XX2=(CHC1)+CH(II))/CH0RD 
THETA2 = ARCOS ( 1 .-2, *XX 2 ) 

51 C ONT INUE 
GO TO 49 

48 THETA1=PI 

49 CONTINUE 
K 1=1 

<2 = 2 

IF (NBC.EQ.1 .OR. NBC.EQ.MAXP) WRITE (6^102) 

DO 23 KI=1^NCS 
DO 25 N = UNCW 
N A=(<I-1 )*NCW+N 
A<(NA)=0.0 
F N =N - 1 

DO 27 L=1/NCW 

IF <L.LE.NWn))KS=(»a-1)*NW(1)+L 

IF (L.GT.NWd) .AND. L .L E . NW2 ) KB= L P AN 1 + ( K I - 1) * N W ( 2 ) +L-N W ( 1 ) 

IF (L.GT.NW2) KB=LPAN2+{ KI-1 ) *NW( 3)+L-NW2 
IF (L .LE. NW< 1 ) ) GO TC 100 

IF <L .GT, NW(1) .AND. L .LE. NW2 ) GO TO 200 
If? <L .GT. NW2 ) GO TO 300 
100 FNW=NW(1) 

T HETAsTHET A1 
GO TO 400 
200 FNW=NW(2) 

THETA=THETA2-THETA1 
GO TO 400 
300 FNW=Nw<3) 

THETA=PI-THETA2 
400 CONTINUE 

AK(NA)=A<(NA)+THETA*OZOX<<KB)^COS(FN*THETAK(L))/(FNW*PI) 

27 continue 

IF (N .GT. 1) AK (NA) = 2 .*AK (NA) 

25 continue 

C0NST1=0.0 
CONST2=0.0 
DO 88 J=3^NCW 
G < = J “ 1 

KG=(KI-1 )*NCW+ J 

C0NST1=C0NST1+0.25*AK(<G)*(1./(1.-GK)+1./(1.+6<)) 

C0NST2=C0NST2+0.25*AK(KG)*<1./(1.-GK)*C0S((1.-GK)*PI)+1./(1,+GK)*C 
1 OS ( ( 1 . +G<) *PI ) ) 

88 CONTINUE 

C0NST3=0.1 25*A<(<2) 

CONST(<I)=CONST1+CONST3 
ALPAO (KI) = CQNST 2-CONST 1-AK (K1 ) 

ALPA(KI)=ALPAO(KI)*180./PI 
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00 29 «=1#NCW 
MM=( KI-1 )*NC J+M 
C AMZC(MM)-0.0 
0 0 3 0 K = 3-»NCW 
FK=K-1 

K D=(KI-1 )*NCW+K 

CAMZC(MM)=CAMZC(MM)-0.25*AK<K0)*(1./C1.-FK)*C0S((1.“FK)*THETAK(M)) 
1 +1 . / (1 . + FK)*C0S ( (1 .+FK )*THETAK (M) ) ) 

30 CONTINUE 

C0NST4=-C0NST3*C0S (2. * THETAK(M) ) 

CAKZC(MM)=CAMZC(WM)+(ALPAO(KI)+AK(K1))*0.5*(1.-COS(THETAK(MJ))+CON 
1 ST4+C0NST(KI) 

29 CONTINUE 
K1=K1+NCW 
K2=K2+NCW 

IF (N3C.EQ.1 .OR. NBC. EQ.MAXP) WRITE ( 6/ 1 26 ) K I / Y LE ( KI ) I ^ ALP A ( KI ) 

126 FORMAT (1H ^ ' Y L E ( * ^ I 2 / * ) = ' # F 1 5 . 5/ 5 X # ' A L P AO ( ' ^ I 2 / ' ) = ' / F 1 5 . 5 ) 

23 CONTINUE 

IF (N8C.EQ.1 .OR. NBC.EQ.MAXP) WRITE (6/129) 

129 FORMAT (1H /'CAMBER ORDINATES IN THE JET ON CASE') 

IF (NdC.EQ.1 .OR. NBC.EQ.MAXP)WRITE(6/127)(CAMZC(JJ)/JJ=1/LPANEL) 

127 FORMAT (1H /6F10.5) 

RETURN 

END 

$ FORTY 

S LIMITS /30k 

$ INCOOE I6MF 

SUBROUTINE LOAD 

C TO EVALUATE THE AERODYNAMIC CHARACTERISTICS 

DIMENSION CA(30)/CPSWL(30)/AW(30) 

COMMON /AERO/ AM 1 / A M2 / El / B 2 / C L ( 30 ) / C T ( 3 0 ) / C D ( 3 0 ) / G A M ( 2 / 1 00 ) 

COMMON /ADO/ C P ( 1 0 0 ) / C M ( 30 ) / 8 R E AK ( 8 ) / S WP ( 8 / 1 5 ) / GA L ( 30 ) / I S Y M/ V MU /V U 
1/ TEMP/ FCR/CAMLER/CAMLET/CAMTER/CAMTET/XJ/YJ/ZJ/RJ /ALP /CREF/TWISTR 
COMMON /CL OPE/ DZ0XK(1C0)^ALPA0(1 5)/GCD(100)/GCBX(100)/THETAK(10) 
1/CCX(100)/0ZDXK(100)/GAN<2/100) 

COMMON /LING/ G L BA R / GM E A R / F C L I I / F C M 1 1 

COMMON /WLONE/ D Z 0 X K W ( 1 00 ) / GA MW ( 1 00) / C A MZ C W ( 1 00 ) / A L PA OW ( 2 0 ) 

COMMON /CONST/ NCS/NCW/Ml(8)/NSJ/NCJ(5)/LAST/HJWl(3/5)/MJW2(3/5)/J 
1PANEL/MJJ(5)/NW(3)/NNJ/NJP 

COMMON /GEOM/ H A L F S W/ X CP ( 2 00 ) / Y CP ( 2 00 ) / Z C P ( 2 00 ) /X L E ( 5 0 ) / Y L E ( 5 0 ) /X T 
1E(50)/PSI(20)/CH(95)/XV(200)/YV(100)/SN( 8/8)/XN(200/2)/YN(200/2)/ 
2 ZN(200/2) /WI0TH(8)/YCCN(25)/SWEEP(50)/HALFB/SJ(21/8)/EX(95/2)/TX( 
395/2)/SC (1 60/5) /SI (160/5)/LC(3) 

COMMON /PARAM/ A LP T / A L PC / A LPS / C OF / S D F / TH/ T D F 

COMMON /COST/ L TOT AL / L PA Nl / N J W ( 5) / LP A N EL / I E NTN / LP AN 2 / E X I T / PT I AL /T W 

1-I~ST/ 0F (-^O / NPP- ^ 

COMMON /SCHEME/ C C 2 ) / X < 1 0 / 4 1 ) / Y ( 1 0 / 4 1 ) / SLOP E ( 1 5 ) / X L ( 2 / 1 5 ) / XT T ( 4 1 ) / 
1XLL(41) 

1 FORMAT ( 1H0/26X/7HALPHA = / F 1 0 . 3/ 3 X / 7H D E GR E E S ) 

2 FORMAT (1H0/20X/40HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

101 FORMAT (1H1) 
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P 1 = 3.1 4l 59265 
DO 18 I = UNCS 
CT(I)=0. 

XTE(I)=D. 

X (5^I)=0. 

18 CONTINUE 

ALPH=ALP*1 80. /PI 
WRITE (6^101) 

WRITE (6^21 
WRITE <6/1 ) ALPH 
WRITE (6/2) 

2 JET=YCON( 25) 

I USB=YCON( 24) 

NC=I ENTN 
DFJ=CDF 
CMU=C ( 1 ) 

C LTsO. 

CMT=0. 

C DT=0. 

CLW=0. 

CMWT=0. 

C DW = 0. 

CLWW=0. 

C«WWT=0. 

C OWWsO. 

K C = 1 

N C0L=M1 < 1 ) 

KLL = C 

' 

I U=1 

IF (NW(2) .NE. 0) IU=2 
IF (NW(3) .NE. 0) IU=3 
NW2=NW( 1 )+NW(2) 
NW3=NW(2)+NW<3) 

NCWl=NCW+1 
NL = 1 

DO 150 1=1 /NCS 
I F (NW( 2 ) .EQ . 0) GO TO 160 
I I = I+NCS 

IF CNW<3) .NE. 0) GO TO 144 
C HORD=CH ( I ) + CH ( I I) 

GO TO 161 
144 III=II+NCS 

CH0RD = CH< I ) +CH ( 1 1) +CH ( II I) 
GO TO 1 61 

160 CH0RD=CH(I) 

161 CONTINUE 
CML=C. 

CL<I)=0. 

CD(I)=0, 

C A ( I )=0. 
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CMiJ = 0. 

CPSWL(I)=0. 

C MWnl =0 . , ■ 

r X(4,I)=Q. 

X (6^ I)=0. 

X(7/I)=0. 

00 155 J=1^NCW 
NN=J+MM 

IF (NW(2) .EQ. 0) GO TO 151 
I F (J ,LE. NW(1 )) GO TO 151 
I F ( J . GT. NW2 ) GO TO 153 
LL=LPAN1 +NW(2) *( 1-1 ) +J -NW( 1 ) 

IL=II 

J LL = J-NW(1 ) 

L=2 

FN=NW(2) 

GO TO 1 52 

153 LL=LPAN2+NW( 3) * ( 1-1 ) + J-NW2 

IL=III 
JLL=J-NW2 
L = 3 

FN=NW(3) 

GO TO 152 

1 51 LL=NN 

1 L=I 

J LL = J 
L = 1 

FN=NW(1) 

1 52 CONTINUE 

X Cs(XV(LL)-XLE CD) /CHORD 
X ( D J ) *0 . 
i X <2/ J ) = 0. 

I 510 GBS=CPCLL) *SN ( JLL/L)*CH( IL)/C2,*FN) 

W0S = GAMW( LL) *SN(JLL/L )*CH(IL) *ALPC/FN 
WAS=GAP1W< LL) *SN(J LL^L )*CH(IL) *ALPC/FN 
IF .(OF(NL) .LE. 0.001) GO TO 521 
I I F (PTIAL .LE. 0.1 ) GO TO 520 

I F <NW(3) .EQ . 0) GO TO 524 

IF (LL .GE. :'1JW1(3/NL) .AND. LL .LE. MJW2(3^NL)) GO TO 523 
521 CS=1. 

SS=-D20XK(LL) 

SW = -OZDXKW (LL) 

GO TO 522 

520 IF (N^^<2) .NE. 0 .AND. LL .LE. LPANI) GO TO 521 
IF (NW(3) .NE. 0 .AND. LL .LE. LPAN2) GO TO 521 

5 23 C$ = 1 . 

S S=-DZDX<( LL) 

SW = -DZOXKW (LL) 

GO TO 522 

i 524 IF (LL .GE. MJWl(2^NL) .AND. LL .LE. MJW2(2/NL)) GO TO 523 

GO TO 521 

I 

i 


143 


Q2--1 3-78 02. 177 

522 CONTIMUE 

,CL(I.) = CL(r) + 6BS*CS . 

C I^L = CML-GBS*Xy (LL) *CS 

co(r)=co(i )+6ss*ss 

C A ( I ) =CA ( I )+WBS*CS 
CMW=CMW^>,BS*XV (LL) *CS 
CPSWL(I)=CPSWL (I)+JBS*SS 
X ( A/ I ) =X (A ) +WAS* CS 
CMWW=CMWW-WAS*XV(LL)*CS 
X (6/ I) = X (6/ I) +WAS* SW 
155 CONTINUE 

C AMLE = C AML ER-<C AML ER- CAMLET) *YLE( I >/HALFB 
EPHA = XLL(I )-ATAN(C AMLE ) 

X (1/NCW1 )=COS(EPHA) 

X (2/NCWl )=SIN(£PHA) 

CL (I )=CL ( I ) *PI /CHORO+C T< I) *X ( 2^NC W1 ) 

CM( I )=CML*PI/ ( CREF*CHORD) 
CD(I)=CD(I)*PI/CH0RD'CT(I)*X(1^NCW1) 

CA(I) = CA(I)*PI/CH0R0+XTE<I)*X(2/NCUl1) 
AW(I)=CMW*PI/ ( CREF^CHORO) 

CPSWL<I)=CPSWL<I)*PI/CH0RD-XTE(I)*X(WNCW1) 

X(A^I)=X(A/I)*PI/CHORO+X(5^I)*X(2/NCW1) 

X <7 / I)=CMWW^»PI /<CREF*CHORO) 

)((6yn*X(6/l) *P I/CHOR 0-X (5^1) *X(1 ,NCW1 ) 

IF (I .LT. NCOL) 60 TO 210 

KLL=NC0L-1 

KCsKC+1 

NC0L = NC0L + M1 (KO-1 
210 KLsI-KLL 
F MaMI (KC ) 

AA=CHORO*SJ(KL^KC)*WIDTH(KC)/FM 

CLT=CLT+CL (I) *AA 

CMTa CMT + CM ( I ) * A A 

C DT=COT + CO (I)*AA 

CLW=CLW+CA ( I) *AA 

CMWT=CMWT+ AW< I ) *AA 

C DW = COW+CPSWL( I) *AA 

CLWW=CLWW+X(A/I) *AA 

CMWWT=CM'-JW .'+X ( 7/ I) *AA 

C DWW = C DWW+ X ( 6/ I ) *A A 

MM=(NCW-NW3)*I 

IF (LL.EQ. MJW2<IU/NL>) NL*NL+1 
150 CONTINUE 

CLT=CLT*PI / <2. *HALFSW) 

CMT=CMT*PI /<2. *HALFSW) 

C DT=C DT*PI / <2 . *HAL F SW ) 

C DCL2=CDT/ (CLT *CLT ) 

CLW=CLW*PI/(2,<‘HALFSW) 

CMwT=CMWT*PI/(2.*HALFSW) 

C DW=COW*PI /(2. *HALFSW) 
CLWW=CLWW*PI/(2.*HALFSW) 
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CMWWT=CMWWT*PI / ( 2. *HAL FSW) 

C 0WW = C0WvJ* PI / ( 2. *HALFS W) 

IF (CLWW ,LE. 0.001) GC TO 67 
C DWL2=CDWW / (CLWW*CLWU ) 

GO TO 68 

67 C DWL2=0. 

68 CONTINUE 
WRITE (6/53) 

53 FORMAT (1H / 5 X / ' VO R T E X ' / 3X / * X V * /8 X / ' Y V'/ 8X / * C P ' /8 X / ' C PW ' ) 

K1=0 

J J 1 = 0 

DO 60 1=1 /NCS 

I F (NW(2) .EQ, 0) GO TO 62 
I I=I+NCS 

IF <NW(3) ,NE. 0) GO TO 69 
CHORO = CH( I )+CH< II) 

GO TO 63 

69 III=II+NCS 

C HORD = CH ( I )+CH ( I I) +CH ( II I) 

GO TO 63 

62 CHORD=CH(I) 

63 CONTINUE 

00 61 J=1 / NCW 
J J = J Jl+J 
KK=K1+J 

I F <NW<2) .EQ. 0) 60 TO 64 
IF ( J .LE. NW(1 ) ) GO TC 64 
IF (J .GT. NW2) GO TO 59 
LL-LPAN1 +NWC2 ) * ( I- 1 ) + J -NW( 1) 

GO TO 65 

59 LL*LPAN2+NW( 3) * ( 1-1 ) + J -NW2 
GO TO 65 

64 LL=JJ 

65 CONTINUE . 

X I = (XV (LL) -XLE ( I)) /CHORD 

E TA = YV(LL) /HAL FB 
CPW=2,*GAMW< LL)*ALPC 
61 WRITE (6/54) K K / X I / E T A /C P ( L L) / C PW 
J J 1 = (NCW-NW3) * I 
K1=K1+NCW 

60 CONTINUE 

54 FORMAT ( 7X / I 3/ 3 X /4 F 7 0 . 5 ) 

WRITE (6/30) 

30 F0RMAT(1h0/5X/4HY/SP; 7X/2HCL/ 7X/2HCM/ 7X/2HCT/ 7X/3HCDI/ 6X/ 
*3HCLW/ 6X/3HCMW/ 6X/3HC0W) 

00 31 1=4/NCS ■ _ 

Y E = YLE< I ) / HALF B 

31 WRITE (6/ 32) YE/CL(I)/CM(I)/CT(I)/CD(I)/X(4/I)/X(7/I)/X(6/I) 

32 FORMAT (3X/8F9.5) 

DO 80 I=1/NCS 
AW(I)=X(4/I)*CH(I)/CREF 
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C A ( I ) = C L ( I ) * C H < I ) / C R E F 

80 CONTINUE 
WRITE (6^31) 

81 FORMAT (1H y5X/.'JET - OFF SPAN L 0 A D I N G ' / 7X ^ ' J E T - O LOADING 

1 • ) 

WRITE (6^821 (AW(I),CA(I)^I=1^NCS) 

82 FORMAT (1H /2X^F10.5/10X,F20.5) 

WRITE (6/33) CLT 

33 FORMAT <1H / 'THE LIFT COEFFICIENT ='/F10.5) 

WRITE (6/24) CDT 

24 FORMAT (1H / 'TOTAL INDUCED DRAG COEFFICIENT 
WRITE (6/35) CDCL2 

35 FORMATdH / 'THE INDUCED DRAG PARAMETER ='/F10.5' 

WRITE (6/42) CMT 

42 FORMATdH / 'TOTAL PITCHING MOMENT COEFFICIENT = ‘ ' 

I F ( lUSd .NE.1) G0T0157 

IF (OFJ .LE. 0.001) GO TO 157 
IF (ZJET .GT. 0.01) GO TO 157 
SDFJ =SIN(0FJ) 

C DFJ =COS (0 FJ ) 

CLR=CMU*SIN(DF J+ALP) 

C DR=CMU*(VMU-COS(DFJ+ALP)) 

CF=COS(TOF) 

SF=SIN(TDF) 

IF (NNJ .EQ. 1) CDR=-C«U*COS(DFJ+ALP) 

IJ = (NSJ + 1 ) /2-1 

IF (ISYM .EQ. 0) IJ=NSJ/2-1 

I F (NW(3) .NE. 0) GO TC 156 

IF (NW(2) .EQ. 0) GO TC 154 

I Z = NCS+(MJ W1(2/NJP)-LPAN1-1)/NW(2)+1 

KJ=MJW1 (2/NJP) 

NN=NW(2) 

GO TO 1 59 

156 IZ=NCS*2 + (MJW1 (3/NJP) -LPAN2-1 ) /NW(3)+1 
KJ=MJW1(3/NJP) 

NN=NW(3) 

GO TO 1 59 
154 IZ=LC(1) 

K J=MJW1 (1/1, JP) 

NN=NW(1) 

159 CONTINUE 
CM1=0. 

DO 1 58 1=1 /IJ 
YDIF=YN(KJ /2)-YN(KJ/1 ) 

CM1 = CM1+YDIF/WIDTH(NJW(NJP))*((XLE(IZ)+CH(IZ)*CF)-*SDFJ-CH(IZ)*SF*C 
1 0 FJ ) 

KJ=KJ+NN 
1 58 I Z=I Z+1 

CMR=-CM1*CMU/CREF 

IF (NNJ .NE. 1) WRITE (6/43) CLR 

43 FORMAT (1H / 'THE COANDA LIFT COEFFICIENT/ CLR='/F10.5) 
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IF (NNJ ,EQ. 1) WRITE (6^47) CLR 

47 FORMAT (1 H 0 , 4 7 H T H E L I F T COEFFICIENT DUE TO JET REACTION/ CLJ =#F10 
1.5) 

IF (NNJ .NE. 1) WRITE (6/44) CDR 

44 FORMAT (1H / 'THE COANOA DRAG COEFFICIENT/ CDR='/F10.5) 

IF (NNJ .EQ. 1) WRITE (6/48) COR 

48 FORMAT (1H0/47HTHE DRAG COEFFICIENT DUE TO JET REACTION/ CDJ =/F10 
1.5) 

IF (NNJ .NE. 1) WRITE (6/45) CMR 

45 FORMAT (1H / 'THE COANOA MOMENT COEFFICIENT/ CMR = */Fl0.5) 

IF (NNJ .EQ. 1) WRITE (6/49) CMR 

49 FORMAT (1H0/53HTHE PITCHING MOMENT COEFFICIENT DUE TO JET REACTION 
1/ CMJ =/F10.5) 

157 CONTINUE 

I F ( lUSa . EQ. 1 ) GO TO 1 71 
WRITE(6/5)CLW 
WRITE (6/6) CDW 
■WRITE(6/7)CMWT 

171 CONTINUE 

5 FORMATd H0/2X/49HTHE LIFT COEFFICIENT WITH JET ENTRAINMENT ALONE = 
1 / F10 .5 ) 

6 FORMAT(1hO/2X/57HTHE INDUCED DRAG COEFFICIENT WITH JET ENTRAINMENT 
1AL0NE=/F10.5) 

7 F ORM AT ( 1 HO /2X/ 60HTHE PITCHING MOMENT COEFFICIENT WITH JET ENTRAINM 
1ENT ALONE =/Fl0.5) 

WRITE (6/70) CLWW 

70 FORMATdH / 'THE LIFT COEFFICIENT FOR THE WING ALONE ='/Fl0.5) 
WfiITE(6/71)CDUW 

71 FORMATdH / 'THE INDUCED DRAG COEFFICIENT FOR THE w ING ALONE =' / 
1F10.5) 

W R ITE ( 6/7 2) CMWWT 

72 FORMAT (1H /'THE PITCHING MOMENT COEFFICIENT FOR THE WING ALONE' = 

1 ' / F 1 0 . 5 ) 

WRITE (6/73) CDWL2 

73 FORMATdH / 'THE INDUCED DRAG PARAMETER FOR THE WING ALONE ='/ 

1 F 10. 5) , 

RETURN 

END 
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WING ALONE CASE 

******************************************* 


1 

1 

1 

L 





INPUT DATA 

0. 

1 

0. 

1 

0.25760 

0. 

1.00000 

0. 

-0.29391 

0.1231 8 


0. 36364 

0- 

0. 

1 .00000 

0. 

1 .OOQCO 

-0.29391 

0.25945 

0.05000 

1.00000 

0.37495 

1.67600 

1 

1 o.ocooo 
1 1 

0. 






1 

6 

0 

0 






-0.56776 

1 

-0.09304 

7 

0. 

6 

0.48778 

0.74033 

1.00000 



-0.56776 

-0.56776 

-0.09304 

-0.09304 

0. 

0. 

0. 

0. 1 0000 





0.48778 
0.^4 3 778 

0.74033 
0^403 3^ 

1 .00000 
1 .00000 

0.10000 

0. 





HALF SW= 0. 

36364E CO 


CREFs 0.37495E 00 




LPANEL= 60 JPANEL= A8 LAST=108 LTOTAL=156 


VORTEX ELEMENT ENDPOINT COORDINATES* 

7i x2 n Y2 n Ta 


-0.55967 

-n. 5 1 21 5 

0. 

Q.0451 8 

0. 

0. 



-0.45202 

0. 

0.0451 8 

0. 

0. 


HaifCMEHi 

-0.34786 

0. 


0. 

0. 


-0. 26897 

-0.22759 

0. 

0.0451 8 

0. 

0. 


-n. 16256 

-n. 1 2344 

0. 

0.0451 8 

0. 

0. 


-0.10113 

-0.06330 

0. 

0.0451 8 

0. 

0. 


-n. 51 215 

-0.43123 


0.12213 

0. 

0. 


-0. 45202 

-0.37330 

0.04513 

0.12213 

0. 

0. 


-n. 34 786 

-0.27298 

■iPIlCraKBI 

0.1 221 3 

0. 

0. 


-0.22 759 

-0.1 5714 

0.04518 

0. 1221 3 

0. 

0. 


-n. 1 2344 

-0.05681 

0.04518 

0.1 221 3 

0« 

0. 


-0.06330 

0.001 1 1 

0.04518 

0. 12213 

0. 

0. 


-n.43123 

-0-31811 

0.12213 

0. 22968 


0. 


-0.37330 

-0.26328 

0.12213 

0.22968 

0. 

0. 



-0.1 6831 

0.12213 


0. 

0. 


-0.15714 

-0.05865 

0.12213 

0.22968 

0. 

0. 


-0.05 681 

0.03632 

0.122 13 


0. 

0. 


OtOO T 1 1 - 

-0^09115 

Q-.-1-2-2 1 3 - 

0 . 2 2-96.8 

0. . 

0. 


-0-31811 

-0.1 8195 


0. 3591 3 

0- 

0. 


-0.26328 

-0.1 3084 

0.22963 

0. 3591 3 

0. 

0. 


-n , 16831 



n, 3591 3 

n. 

0 . 


-0.05865'' 

0.05989 

0.22968 

0.3591 3 

0. 

0. 


0,03632 

0.14841 

0 .22968 

n. 3591 3 

0^ 

0. 


0.09115 

0.1 9952 

0.22968 

0.35913 

0. 

0. 


_ f) 18 10 5 

-0.03379 

0,35913 


n. 

n. 


-0.13084 

0.01326 

0^35913 

0.' 50000 

0. 

0. 


-0 0/.5 3P 

0,09477 

0 , 359 1 3 

n. 5nnnn 

n. 

n. 


0.05989 

0.18889 

0.35913 

0.50000 

0. 

0. 

148 

o 1 /. a 6 1 

0,77030 

0,35913 

0. 50000 

0. 

n. 


0.19952 

0^31745 

0^35913 

olsoooo 

0. 

0. 


-^.q.J3lZ9— 

_ ■O-.-l-l 43 A - 

. 0.500.00 

■iHA'llfiMi 

CL 

0- 

















0,01 326 

0.1 5737 

0.500C0 

0.64087 

0, 

0. 


0,09477 

0.23186 

0.500C0 

0.64087 

0. 

0. 


0. "18889 

0.31788 

0.500C0 

0.64087 

0. 

0. 


0. 27C39 

0.39237 

0.500C0 

0.64087 

0. 

0. 


0.31 745 

0.4 3538 

0.500C0 

0.64087 

0. 

0. 


■ 0.11436 

0.25052 

0.64087 

0.77032 

0, 

.0. 


0.15737 

0.28980 

0.64087 

0.77032 

0. 

0. 


0. 23186 

0.35785 

0.64087 

0.77032 

0. 

0. 


' 0.31788 

0.43642 

0.64087 

0.77032 

0. 

0. 


0. 39237 

0.50446 

0.64087 

0.77032 

0, 

0. 


0-43538 

0.54375 

0.64087 

0.77032 

0. 

0. 


0-25052 

0.36364 

0.77032 

0.87787 

0. 

0. 


0.28980 

0.39983 

0,77032 

0. 87787 

0. 

0. 


0,35785 

0.46252 

0,77032 

0.87787 

0, 

0. 


0.43642 

0.53491 

0,77032 

0. 87787 

0. 

0. 


0,50446 

0.59760 

0.77032 

0. 87787 

0. 

0. 


0.54375 

0.63379 

0.77032 

0. 87787 

0. 

0. 


0, 36364 

0.44456 

0.87787 

0.95482 

0. 

0. 


0.39983 

0.47854 

0.87787 

0.95482 

0, 

0. 


0.46252 

0.5 3740 

0.87787 

0.95482 

0, 

0- 


0,53491 

0.60536 

0.87787 

0.95482 

0, 

0. 


0-, 59 7 60 

0.66422 

0.37787 

0.95482 

0. 

0. 


0.63379 

0.69820 

0.87787 

0.95482 

0. 

0. 


0.44456 

0.48673 

0.95482 

0.99491 

0. 

0. 


0,47854 

0.51956 

0.95482 

0.99491 

0. 

0. 


0.53740 

0.57642 

0,95482 

0. 99491 

0. 

0. 


. 0.60536 

0.64208 

0,95482 

0.99491 

0. 

0. 


0.66422 

0.69894 

0.95482 

0.99491 

0. 

0. 


0.69820 

0.73177 

0,95482 

C. 99491 

0. 

0. 


. -0.55967 

-0.55967 

0. 

0. 

0. 

0.1000C 


-0.49824 

-0.49824 

0. 

0. 

0. 

0.10000 


-0.39183 

-0.39183 

0. 

0. 

0. 

0.10000 


-0.26897 

-0.26897 

0. 

0. 

0. 

0.10000 


-0.16256 

-0.1 6256 

0. 

0. 

0. 

0.100CC 


-0.10113 

-0.10113 

0. 

0. 

0. 

0.10000 


■ -0-55967 

-0.23504 

0. 

0. 30866 

0.10000 

0.1 0000 


-0.49824 

-0.1 8248 

0. 

0.30866 

0.10000 

0.10000 


-0.39183 

-0.09145 

0. 

0. 30866 

0.10000 

0.10000 


-0.26897 

0.01367 

0. 

0. 30866 

0.10000 

0.10C00 


-0. 16256 

0.1 0471 

0. 

0.30866 

0. 10000 

0. 10000 


-0.10113 

0.1 5727 

0. 

0.30866 

0.10000 

0.10000 


-0-23504 

0.16745 

0-30866 

0.69134 

0.10000 

0.10000 


-0.18248 

0.20901 

0,30866 

0.69134 

0.10000 

0.1000 0 



0.28098 

0.30866 

0.69134 

0.10000 

0.10000 


0.01 367 

0.36410 

0.30866 

0.69134 

0.10000 

0.10000 


0.10471 

0.43608 

0-30866 

0.69134 

0.10000 

0.10000 


0.15727 

0.47763 

0.30866 

0.69134 

0.10000 

0.10000 




_ 0 . 69 1 34 

1.OCOO0 

0-10000 

0.10000 _ _ 


0.20901 

0.52477 

0.691 34 

1.0G0O0 

0.10000 

0.10000 

— 


0-58137 

0-691 34 

1.0C000 

0-10000 

0.10000 


0.36 410 

0.64674 

0.69134 

1.0COO0 

0.10000 

0.10000 


0.43608 

0.70334 

0.69134 

1.00000 

0.10000 

0.10000 


0.47763 

0.73603 

0.691 34 

1.00000 

0.10000 

0.10000 


0-49208 





0. 


0.52477 

0.52477 

1.000C0 

1. 00000 

0.10000 

0. 


n. S8137 

0-58137 

1 -OOOCO 

1.00000 

0.10000 

0. 


0,64674 

0.64674 

1 .OOCCO 

1,00000 

0.10000 

0. 149 


0-70334 

0.7C334 

1 .OOOCO 

1 .00000 

0-10000 

0. 


0.73603 

0.736C3 

1 .OOOCO 

1,00000 

0,10000 

0, 


-0,55967 

_-Q^?3ia4 

-JL, 

0-30866 

Q. 

_XL _ - 



-0.4982A 

-0.1 8248 

0. 

0.30866 

0. 

0. 


1 -0.39183 

-0 -09145 

0. 

0.30866 

0. 

0. 


i -0.26897 

0.01367 

0. 

0.30866 

0. 

0. 


-0.16256 

0 .1 0471 

0. 

0,30866 

0. 

0. 


-0.10113 

0.1 5727 

0. ' 

0.30866 

0. 

0. 


-0.23504 

0.1 6 74 5 

0-30866 

0.69134 

0. 

0. 

n 

-0.18248 

0.20901 

0.30866 

0.69134 

0. 

0. 


-0.09145 

0.28098 

0.30866 

0.69134 

0. 

0. 


1 0.01367 

0.36410 

0,30866 

0,69134 

0- 

0. 

'j 

1 0.10471 

0.43608 

0.30866 

0.69134 

0. 

0. 


1 0.15727 

0 .4 7763 

0,30866 

0.69134 

0. 

0. 


i 0.16745 

0.49208 

0.691 34 

1.00000 

0. 

0. 


0.20901 

0.52477 

0;691 34 

1.00000 

0. 

0. 


■KiKvni 

0-581 37 

0.69134 

1-00000 

0. 

0. 


0. 36410 

0 .64674 

0.691 34 

1.00000 

0. 

0. 


0. 43608 

0.7C334 

0.691 34 

1.00000 

0. 

0. 


0.47763 

1 

, 

0.73603 

0.691 34 

1.00000 

0. 

0. 


CONTROL POINT C00R0INATES= 


TCP 

2CP 

XCP 

TCP 

ZCP 



0.02025 

0- 

-0.42883 

0.02025 

0. 


-0.31 127 

0.02025 

0. 

-0.1 9372 

0.02025 

0. 


BiPUiiJ.n 

0.02025 

0- 

-0.0761 6 

0.02025 

0. 


-0.45336 

0.07937 

0. 

-0.36971 

0.07937 

0. 


-n. 25544 

HRSEZSi] 

0. 

-0. 14116 

0-07937 

0. 


-0.05751 

0.07937 

0. 

-0.02689 

0.07937 

0. 

t 

-0- 35637 

0.1 7257 

0. 

-0.27651 

0,17257 

0. 


-0.16742 

0.1 7257 

0. 

-0.05832 

0.17257 

0. 


0.02154 

0.17257 

0. 

0.05077 

0.17257 

0. 

- 

-0.23178 

0.29229 

0. 

-0.1 5679 

0.29229 

0. 


-0.05434 

■liUrWJ 

0. 

0-0481 0 

0.29229 

0. 


0.12310 

0.29229 

0. 

0, 1 5055 

0.29229 

0. 


-0.08968 

0.42884 

0. 

-0.02024 

0.42884 

0. 


0.07462 

0.42884 

0, 

0.1 6948 

0.42884 

0. 




0. 

0.26434 

0,42884 

0. 


0.05842 

0.57116 

0. 



0. 


0-20903 

0.57116 

n . 





0.35965 

0.57116 

0. 

0.38295 

0.57116 

0, 



HmimDi 

0. 

0.25863 

0-70771 

0. 


0.33800 

0.70771 

0. 

0. 41 73 7 

0.70771 

0. 


^KSwmwSUwM 


0. 


0.70771 

0- 


0.32511 

0.82743 

0. 

0.37835 

0.82743 

0. 



0.82743 

0. 

0.52379 

0.82743 

0. 


0.57703 

0.82743 

0. 

0.59652 

0.82743 

0. 




n. 



0. 


0.53909 

0.92063 

0. 

0.60664 

0.92063 

0. 




n . 

0.6741 8 


0. 


0.48362 

0.97975 

0. 

0.53066 

0.97975 

0. 



n , 9 7978 

n - 

0-6891 9 

n.97975 

n. 


0.70623 

0.97975 

0. 

0.72345 

0.97975 

0. 


-n «;x<;oA 

n ^ 



n - 

0-08000 


-0^33040 

0,' 

0.050C0 

-0.21172 

0. - 

0.05000 

a 

-n , 1 p ASA 

n . 



n. 



-0. 38 356 

0.1 4645 

0.10CC0 

-0.30263 

0.14645 

0.10000 


. -n ^ 10 PDO 

n , 1 AifA 8 

n - 1 nnnn 

-0.08184 

0- 1A6A8 

0. 1 0000 


'*0,00062 

0.1 4645 

0.100C0 

0.02900 

0.14645 

0.10000 

150 

-0 , 01 5A3 

n - 8rnnn 

n. 1 nnrn 

0-0809? 

0 - snnnn 

0-10000 


0.14183 

0.5C0OO 

0. 100C0 

0.23274 

0.50000 

0,10000 


q, 29.929 

— ousaoxH}- 

cuaxmca 

0^2364 ■ 

n.snoQQ 

0-1 0000 









1 0.35230 

0,47574 

0.85355 

0.85355 

0.100C0 

0.100C0 

0.40447 
0. 54701 

0,85355 

0.85355 

0.10000 
0.1 0000 

0.59919 

0 .8 5355 

0.100C0 

0.61829 

0.85355 

0.10000 

0.50470 

1 .00000 

0.050C0 

0.55092 

1.00000 

0.05000 

0. 61 406 

1 .00000 

0.050C0 

0.6771 9 

1 .00000 

0.05000 

0.72341 

1 .00000 

0.050C0 

0.74033 

1 .00000 

0.05000 

-0.38356 

0.1 4645 

0, 

-0.30263 

0-14645 

0. 

-0.19209 

0.14645 

0. 

-0.08154 

0.14645 

0. 

-0.00062 

0.1 4645 

0. 

0.02900 

0.14645 

0. 

-0.01563 

0.5COOO 

0. 

0.05092 

0.50000 

0. 

0.14183 

0.5CO00 

0. 

0-23274 

0.50000 

0. 

1 0.29929 

0.5C000 

0. 

0.32364 

0-50000 

0. 

1 0.35230 

0.85355 

0. 

0.40447 

0.85355 

0. 

0.47574 

0.85355 

0. 

0. 54701 

0-85355 

0. 

1 0.59919 

0.85355 

0. 

0.61829 

0.85355 

0. 

ICOBAR/ CLBAR/ 

CM8 AR/DELTA/MAXP 




0.02084 

0.6C000 

-0.036C0 

50.00000 

1 5 


the computed 

1 

STEP SIZE/ DELTA* 

50.000 

AT 

1TH ITERATION 


INDUCED DRAG COEFFICIENT/ 
FT COEFFICIENT/ 


0.03282 

0.60000 


PITCHING MOMENT COEFFICIENT/ 

CMI 1 = 

-0.03600 

ITHE' COMPUTED STEP SIZE/ DELTA* 


9.174 AT 2TH ITERATION 

[INDUCED DRAG COEFFICIENT/ 


i*= 

0.02461 

LIFT COEFFICIENT/ 

1= 

0.60000 


PITCHING MOMENT CO E F F I C I EN T / CM 1 1 * 
THE COMPUTED STEP SIZE/ OELTA= 


-0.03600 
^0 AT 


ITERATION 


INDUCED DRAG COEFFICIENT/ 
LIFT COEFFICIENT/ 

CDII* 0.02420 

CLII* 0.60000 

PITCHING MOMENT C 0 E F F IC I EN T /C M I I * -0.03600 

THE COMPUTED STEP SIZE/ DELTA* 10.489 AT 4TH ITERATION 

INDUCED DRAG COEFFICIENT/ 
ILIFT COEFFICIENT/ 

COII* 0.02326 

CLII* 0.60000 


[PITCHING MOMENT C 0 E F F I C I EN T /C M I I = 
THE COMPUTED STEP SIZE/ DELTA* 


INDUCED DRAG COEFFICIENT/ CDII= 
T COEFFICIENT/ CLII* 


PITCHING MOMENT COE F F IC I EN T /CMI I* 
THE COMPUTED STEP SIZE/ DELTA* 


'.INDUCED DRAG COEFFICIENT/ COII* 
LIFT COEFFICIENT/ CLII* 


PITCHING MOMENT C 0 E F F I C I EN T / CM I I = 
THE COMPUTED STEP SIZE/ DELTA* 


INDUCED DRAG COEFFICIENT/ 
I FT COEFF IC lENT/ 


PITCHING MOMENT C OE F F IC I EN T / CM I I = 
THE COMPUTED STEP SIZE/ DELTA* 


INDUCED DRAG COEFFICIENT/ CDII* 

^ CLII- 


PITCHING MOMENT C OE F F IC I EN T / CM 1 1 * 




-0.03600 
5.512 AT 


0.02296 

0.60000 


-0.03600 
9.6A1 AT 


0.02277 

0.60000 


-0.03600 
15.344 AT 


0.02258 

0.60000 


-0.03600 
4.746 AT 


0.02252 
0.60000 


-0.03600 


ITERATION 


ITERATION 


ITERATION 


ITERATION 


ITERATION 


INDUCED DRAG COEFFICIENT/ 
111 FJ COEFFICIENT/ 


CO 

CL 

I I* 

11= 

i 

0.02148 

0.60000 

[pitching MOMENT COEFFICIE 
THE TWIST DISTRIBUTION IN 

NT/ 
T F 

C M I I * 

E SPANUISE 

-0,03600 

DIRECTION 


0.02025 


ALPAOC 1)= 


19.93581 

2-04388 


0.42884 


ALPAOC 5)= 






YLE( 

7)» 

0.70771 

ALPA0( 

7)s 

1.90836 

lYLEC 

8)s 

0.82743 

ALPAOC 

8> = 

0-94083 

1yle( 

9)s 

0.92063 

ALPAOI 

9) = 

0.24668 


YLE(1Q3= 0.97975 ALPAOd 0)= -0.78169 


.THE CAMBER 

ORDINATES 

IN THE WING 

ALONE CASE 






0.09C79 

0.051 72 

0.00993 

0.00003 


0.00516 

0.C3465 

0.06392 

0.06067 

0.02714 

0.00328 


0.00824 

0.04995 

0.06767 


0.01431 

0.001 40 


0.00921 

0.05673 

0.07562 

0.04872 

0.01569 

0.00139 






LiMiUiffl 



0.0081 7 

0.C5342 

0.07682 

0.05268 

0.01785 

0.00162 





0.05439 

0.0201 9 

0.00202 


1 0.00597 

0.04197 

0.06835 

0.05490 

0.02258 

0.00248 


0-00478 

0. 0351 5 

0.06156 

0.054 56 

0.02507 

0.00296 


j 0.00337 

0.02655 

0.05C37 

0.04884 

0.02478 

0.00313 


lOPTIMlJM PRESSURE LOADING IN THE 

WING ALONE 

CASE 



' 0.33925 

0.95849 

1.10169 

0.64982 

0.13565 

-0.03151 


0.30567 

0-68236 

0-90372 

0.75224 

0.33858 

0.10925 


0.49081 

1.C1350 

0. 95480 

0. 56554 

0.17322 

0.03985 


0.52897 

1 - 1 2571 


0-52540 

0.13808 

0.00525 


-0.49336 

1.09702 

0.99172 

0. 52162 

0.1241 2 

-0.00885 



0.99758 

0.96347 

0.541 16 

0.14645 

0.00098 


1 0.35511 

C, 86232 

0.90144 

0.561 80 

0.19145 

0.02388 


0.27805 

C. 70889 

0-80C97 

0.55686 

0.23455 

0.04755 


1 0.19747 

C. 53467 

0.63793 

0.48581 

0.24292 

0.05915 



0. 3Q1Q3 

0.34792 


0.17088 

0.04799 




******* 




: J ET ow 

CASE WITH 

UPPER SURFACE BLOWING 




{************************■*************** 





INPUT DATA 

_DL 0- Q.2576Q 1.QCOOO JLi_ -Q.29391 0.1231 8 


110 . 

0-36364 Q. Q.. -0-29391 0.25945 0.05000 1.CC000 0.37495 



1 .QCCOO 
1 n.nnnoo 

1 .OOOCO 
0. 





3 

i 2 

3 

4 

6 





0 

-0.09304 

0 

0- 

-0.36750 

0-06507 

0.18972 


-0.36750 

0.06507 
0-1 8128 

0.18972 

0.32917 

-0.22031 
C. 48778 

0.18128 

0.74033 

0.3291 7 
1.00000 




6 

0-18972 

4 

0. 




. -0.36750 
; -0.22031 

0.06507 

0.18128 

0.18972 

0.32917 

0.10000 

0.10000 




• -0.22031 

0.1 8128 

0.32917 

0, 






0.06507 0.49764 0.18972 0.10000 




■•■KvmKW’j 


np»wiiinm 


0.18128 0.58287 0.32917 0. 










- 0.39183 

- 0.29951 

0 . 

0.09486 

0 . 1 

- 0.26897 

- 0.18210 

0 . 

0.09486 

0 . . 1 


- 0.16256 

- 0.10113 


- 0.45990 

- 0.40120 


- 0.29951 

- 0.18210 


- 0.03042 

- 0.02171 


- 0.36013 

- 0.30415 


- 0.20719 

- 0.09524 


0 . 

0 . 


0.09486 

0.09486 


0.09486 

0.09486 


0.09486 

0.09486 


0.1 897 2 
0.1 8972 


0.1 8972 
0.1 8972 



- 0.20719 

- 0.1 6531 

0.18972 

0.23276 

D. 

- 0.09524 

- 0.05582 

0.18972 

0.23276 

0 . 

0.00172 

0.03899 

0-18972 

0.23276 

0 . 

0.05770 

0.09373 

0.18972 

0.23276 

0 . 

- 0. 31 486 

- 0.25874 

0.23276 

0.28613 

0 . 

- 0.26012 

- 0.20553 

0.23276 

0.28613 

0 . 

- 0.16531 

- 0.11337 

0.23276 

0. 28613 

0 . 

- 0.05582 

- 0.00696 

0.23276 

0 . 2861 3 

0 . 

0.03899 

0.08520 

0.23276 

0.2861 3 

0 . 

0.09373 

0.13841 

0.23276 

0.2861 3 

0 . 

- 0.25874 

- 0.21347 

0.28613 

0.32917 

0 . 

- 0.20553 

- 0.16150 

0.28613 

0.3291 7 

0 . 


- 0.11337 

- 0.07148 

0.28613 

0.3291 7 

- 0.00696 

0.03245 

0.28613 

0.3291 7 

0.08520 

0.1 2247 

0.28613 

0.32917 

0.13841 

0.17444 

0.286 13 

0.3291 7 


- 0.21 347 
- 0.16150 


■ 0.1 1014 
■ 0.06100 


0.32917 

0-32917 


0.42741 

0.42741 


0.07148 

0.02412 

0.32917 

0.42741 

0.03245 

0.1 2241 

0.32917 

0.42741 


0.12247 

0.17444 


0.20754 

0.25668 


0.32917 

0.32917 


0.42741 

0.42741 


- 0.11014 

0.04800 

0,42741 

0.57777 


0.09282 

0-42741 

0.57777 



0.33774 

0.48808 

0.57777 

0.75140 ( 

0.38256 

0.52791 

0.57777 

0-75140 1 





-0.20719 

-0.20719 

0.18972 

0.18972 

0. 

0.10000 



BiHtkiJFal 

KKeBum 

0.18972 

0. 

0.10000 


0.00172 

0.00172 

0.18972 

0.1 8972 

0. 

0.10000 


0.05770 

0.05770 

0.18972 

0-18972 

0. 

0.10000 


-0.36013 

-0.31486 

0.18972 

0.23276 

0.10000 

0.10000 



BwJ'Li&m 

0.18972 

0.23276 

0.10000 

0.10000 


-0.20719 

-0.1 6531 

0.18972 

0.23276 

0.10000 

0.10000 


■ainRrSrn 


BfCiTKin 

mtm***im 

BKuXiiiufl 

■1 HI II IBB 


0.001 72 

0.03899 

0.18972 

0.23276 

0.10000 

0.10000 


0.05770 

0.09373 

0.18972 

0.23276 

0.10000 

0.10000 


-0.31 486 

^0.25874 

0.23276 

0.28613 

0.10000 

0.10000 


BiM.iiin 



0.28613 

0.10000 

0-10000 


-0.16531 

-0.1 1337 

0.23276 

0.28613 

0.10000 

0.10000 





0.2861 3 

■iPiliDliliH 



0.03899 

0.08520 

0.23276 

0.28613 

0.10000 

0.10000 


0.09373 

0.13841 

0.23276 

0.2861 3 

0.10000 

0.10000 


-0.25874 

-0.21347 

0.28613 

0.3291 7 

0.10000 

0.10000 


-0.20553 

-0.1 61 50 


0.3291 7 

0.10000 

0.10000 


-0.11 337 

-0.07148 

0.28613 

0.3291 7 

0.10000 

0.10000 





0. 3291 7 

BKfuilwS 

0.1 0000 


0.08520 

0.1 2247 

0.28613 

0.32917 

0.10000 

0.10000 





0.3291 7 

HiJuamiiH 

0.10000 


-0.21347 

-0.21347 

0.32917 

0.3291 7 

0.10000 

0. 




0.32917 

0.3291 7 

0.10000 

0. 


-0.07148 

-0.0 7148 

0.32917 

0.3291 7 

0.10000 

0. 



_ 0.03245 

0.32917 

0.3291 7 

0.10000 

0. 


0.12247 

0.1 2247 

0.32917 

0.3291 7 

0.10000 

0. 


0.1 7444 

0.1 7444 

0.32917 

0.3291 7 

0-10000 

0. 


-0.36013 

-0.31486 

0.18972 

0.23276 

0. 

0. 


^BiVKIi^VEV 


0.18972 

0.23276 

0. 

0. 


-0.20719 

-0.1 6531 

0.18972 

0.23276 

0. 

0. 






0. 

0. 


; 0.00172 

0.03899 

0. 18972 

0.23276 

0. 

0. 



■iRiijLUfl 

0.18972 

0.23276 


0. 


-0. 31 486 

-0.25874 

0,23276 

0.2861 3 

0. 

0. 



B1IU1U.M 


0.28613 

0. 

0. 


-0. 16531 

-0.1 1337 

0,25276 

0.28613 

0. 

0. 




n.73276 

msmuxKm 

0. 

0. 


0.03899 

0.08520 

0.23276 

0.2861 3 

0. 

0. 


^■•PViEX^ZS 


■(HdJki/S 

0.2861 3 

0. 

0. 


- 0 . 2 5 8 74 

-0.21347 

0.28613 

0.32917 

0. 

0. 





n. 3291 7 

0. 

0. 


-0. 11337 

-0.07148 

0.28613 

0. 3291 7 

0. 

0. 




0-78(51^ 

n. 3291 7 

0. 

0- 


0.08520 

0.1 2247 

0.28613 

0.3291 7 

0. 

0. 


n - 1 3 «Ai 

n .1 7444 

0.28613 

n. 3291 7 

0. 

0. 


0.08153 

0.081 53 

0.18972 

0.18972 

0. 

0.10000 



0^19859 

0-18972 


0 - 



0.36412 

0.3641 2 

0. 18972 

0. 1 8972 

0. 

0.10000 


n , AH 1 1 « 

n .A 81 1 8 

0 ^ 1 89 72 


0 - 

o.ioono 


0.08153 

0.1 1 704 

0,13972 

0.23276 

0.10000 

0,1 0000 


n„ iQg5Q 


0-18972 

n. 23276 

n. 10000 



0.36412 

0.39338 

0,18972 

0. 23276 

0.10000 

0.1 0000 


( 0^481 1 8 

n.50785 

0 - 1 89 72 

n. 2 3276 

0- mono 

o.ioono 


' 0.11704 

0.1 6106 

0. 23276 

0.2861 3 

0.10000 

0.10000 


0-?318n 

n -? 7?3? 

0-2^276 

n_ 2861 3 

0- mono 

0. 10000 


0.39338 

0.42966 

0.23276 

0.2861 3 

0.10000 

0.10000 

154 

CU30-Z-85— 

n , 8 A091 

0, 23 2 76 

n. 2861 3 

0- mono 

0. 1 noon 


0,16106 

0.1 9656 

0.28613 

0.3291 7 

0.10000 

0.10000 


—0.27232 

CU3J15lZ3 

n.?8613- 

0-32917 

o-inoQQ 

0.10000 




0.A2966 

0.45892 

0.28613 

0.3291 7 

0.10000 

0.10000 


0.54091 

0.56759 

0.28613 

0.32917 

0.10000 

0.10000 


0.19656 

0.19656 

0.32917 

0.3291 7 

0.10000 

0. 


0.30523 

0.3C523 

0,32917 

0.3291 7 

0.10000 

0. 


0.45892 

0.45892 

0.32917 

0.3291 7 

0.10000 

0. 


■ 0.56759 

0.56759 

0,32917 

0. 3291 7 

0.10000 

0. 


0.08153 

0.1 1704 

0.1 8972 

0.23276 

0. 

0. 


0.19859 

0.23150 

0.18972 

0.23276 

0. 

0. 


‘ 0.36412 

0.39338 

0.18972 

0.23276 

0. 

0. 


0. 48118 

0.50785 

0.18972 

0.23276 

0. 

0. 


0.11 704 

0.1 6106 

0.23276 

0.2861 3 

0. 

0. 


0.23150 

0.27232 

0.23276 

0.28613 

0. 

0. 


0.39338 

0.42966 

0.23276 

0.2861 3 

0. 

0. 


0.50785 

0.54091 

0.23276 

0.2861 3 

0. 

0. 


0.16106 

0.1 9656 

0.28613 

0.3291 7 

0. 

0. 


0.27232 

0. 30523 

0.28613 

0.32917 

0. 

0. 


0.42966 

0.45892 

0.28613 

0.3291 7 

0. 

0. 


i 0.54091 

0.56759 

0.28613 

0.3291 7 

0, 

0. 


CONTROL POINT COORDINATES= 

H9H 

TCP 

ZCP 

X CP 

H9H 

ZCP 


-0.48660 

0.04743 

0. 

-0.40165 

0.04743 

0. 


-0.28560 

0.04743 

0. 

-0.16956 

0.04743 

0. 


-0.08461 

0.04743 

0. 

-0.05351 

0.04743 

0. 


-0.38788 

0.1 4229 

0. 

-0.30679 

0. 14229 

0. 


-0.19601 

0.14229 

0. 

-0.08523 

0.14229 

0. 


-0.00414 

0.14229 

0. 

0.02554 

0.14229 

0. 


-0.31 727 

0.21014 

0. 

-0.23894 

0.21014 

0. 


- -0.13193 

0.21014 

0. 

-0.02492 

0.21014 

0. 


0.05342 

0.21014 

0. 

0.08209 

0.21014 

0. 


-0.26597 

0.25944 

0. 

-0. 1 8964 

0.25944 

0. 


-0.08537 

0.25944 

0. 

0. 01890 

0.25944 

0. 


0.09524 

0.25944 

0. 

0. 1 231 7 

0.25944 

0. 


-0.21 466 

0.30875 

0. 

-0. 1 4033 

0.30875 

0. 


-0.03880 

0.30875 

0. 

0.06273 

0.30875 

0. 


0.13706 

0.30375 

0. 

0. 1 6426 

0.30875 

0. 


-0.14664 

0.37411 

0. 

-0.07498 

0.37411 

0. 


0.02293 

0.37411 

0. 

0.1 2083 

0.37411 

0. 


0.19250 

0.37411 

0. 

0.21873 

0.37411 

0. 


j -0.01 888 

0.49688 

0. 

0.04779 

0.49688 

0. 


0.13888 

0.49688 

0. 

0. 22996 

0.49688 

0. 


0.29664 

0.49688 

0. 

0. 32104 

0.49688 

0. 


0.15564 

0.66458 

0, 

0.21550 

0.664 58 

0. 


0.29727 

0.66458 

0, 

0.37904 

0.66458 

0. 


0.43890 

0.66458 

0. 

0.46080 

0,66458 

0. 


I 0.33C17 

0.83229 

0. 

0.38321 

0,83229 

0, 


L 0.4S566 

0.83229 

0. 

0.5281 1 

0-83229 

0. 


i 0.58115 

0.83229 

0. 

0.60057 

0.83229 

0. 




0. 

0.50598 

0.95506 

0- 


0.57161 

0.95506 

0. 

0.63725 

0,95506 

0. 




0. 

0.70288 

0.95506 

0. 


■ -0.33852 

0.18972 

0.050C0 

-0.25936 

0,1 8972 

0.05000 


HiHUM 



-0.04307 

0.18972 

0.05000 


0.03609 

0.18972 

0.050C0 

0.06507 

0,18972 

0,05000 


-n. 31 727 

0.21014 

0.10000 

-0.23894 

0.2101 4 

0.1 0000 


-0.13193 

0.21014 

0.100C0 

-0.02492 

0.21014 

0.1 0000 

155 

0.05342 

0.21014 

0-100CO 

0.08209 

0.2101 4 

0- 10000 


-0,26597 

0,25944 

0.100C0 

-0, 1 8964 

0.25944 

0.10000 


,-0.08537 

0.2 5944 

0.10QC0 

0.01890 

0.25944 

0.10000 






0.09524 

0.25944 

0. 100C0 

0,1 231 7 

0.25944 

0.10000 


1 -0.21466 

0.30875 

0-10000 

-0.14033 

0.30875 

0.10000 



-0.03880 

0.30875 

0.100C0 

0.06273 

0.30875 

0.10000 


0.13706 

0.30875 

0.10000 

0. 1 6426 

0. 30875 

0. 1 0000 


, -0.19341 

0.3291 7 

0.050C0 

-0.1 1991 

0.32917 

0.05000 

■f 


niiiiKMsi 




IifliVlllvJ 




imnu 


IIWIWIHM 


' 0.15438 

0.32917 0.050C0 

0. 18128 

0.3291 7 

0.0500C 


0.21014 0^ 

-0.23894 

0.21014 

0- .... - 


-0. 13193 0.21QU 


-0.02492 0.21014 


■ w ^ -1 ■■ g- 

-0.26597 

Uf a C. t KJ 1 

0.25944 

w m 

0. 

W W 4. W T 

-0.18964 

0.25944 I 


0.25944 0. 

0.01 890 

0-25944 I 


0.09524 




0.25944 




0.12317 
-0.1 4033 


0.25944 

0.30875 


, -0.03880 
0.13706 

0.30875 

0.30875 

0. 

0. 

0.06273 

0.16426 

0.30875 

0.30875 

0. 

0. 


' 0.12842 

0.1 8972 

0.05000 

0.28135 

0.18972 

0.0500C 


0.43429 

0.18972 

0.050C0 

0-49764 

0.18972 

0.050CC 


r 0.14477 

0.21014 

0.1 OOCO 

0,2961 1 

0.21014 

0.1000C 





0.5101 2 

0.21014 

0.100CC 


0.18425 

0.25944 

0. 100C0 

0.33171 

0,25944 

0.10000 


1 0-47918 

0.25944 

0-10000 

0.54026 

0.25944 

0 . 1 oooc 


1 0.22374 

0.30875 

0.100C0 

0.36732 

0.30875 

0.10000 



0.30875 

0.100C0 

0.57039 

0.30875 

0.10000 



0.24009 0.32917 0.050G0 0.38207 0.32917 0.0500C 





0.2961 1 

0.21014 

0.5101 2 

0.21014 


0.18425 0.25944 


0.22374 0.30875 


0.33171 




0.25944 


CLII^CMH-rOELTA/MAXP 


lUII 


mil 


NUMB^S I 2E 



PITCHING NOMENT C 0 E F F I C I EN T ^CM I I = 

N 


0.06624 


iifuaesfcti 


YLE ( 1 )a 


1yLE( 3)s 


YLE( 5)a 


iYLE( 7)* 




0.0 4 .’43 


0.21014 


0.30875 


PANWISE DIRECTION 


ALPA0( 1)= 6.3 


0.49688 


ALPA0< 31= 

AiP&nf 


ALPA0< 5)= 
ALPAJLL 6±= 


ALPAOC 7)= 


6.3781 5 
4.85762 


6.91677 
A _ ■?nAO«; 


5.26961 

4^44399 


3.82860 



0.0C921 0.05636 0.07428 0.04682 0.01456 0.00127 


0.00906 0.05678 0.07718 0.05068 0.01660 0.00145 


0.00745 0.04990 0.07499 0.05441 


0.01977 0.00194 


n.nQ416 Q.Q3136 0.05646 0.05174 0-02481 


0.00302 










xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ALPHA = 

0. 

DEGREES 

VQRTFX 

xxxxx 

XV Y 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
V CP CPU 

1 

C.01 704 

n * £ ^ t r 

0.04743 

r\ o / y ^ 

0.36369 

^ ^ "y A 

0.27324 

n £ r% £ r\ 







inr'KMi] 


0.37059 0.04743 1.01748 

941 Q-C4743 0^82461 


0.85355 0.C4743 0.35414 




0.01704 0.14229 

1464 


0.37059 0. 14229 


0.14229 0.60472 

14229 1.02375 


0.14229 1.04341 

n 14229 0-67637 


1.01748 0.95547 

0-82461 0.76591 


0.35414 0.31755 

41 


0.60472 0.44343 

1.02375 0.91657 


1.04341 0.93288 

0.67637 0.61393 


0.85355 0.14229 0.24634 0.21871 

Q.063SQ 


0.01704 0.21014 -0.07581 0.52313 

1 . 


0.37059 
41 


( 55 



0.21014 4.10085 0.97367 

1^51720 0^53386 


0.21014 -0.29706 0.14443 

0.02075 


0.01704 0.25944 -0.20226 0.53314 
0-14645 Q-2S944 5-58176 1.12298 
0.37059 0.25944 4.15151 0.98545 


0.25944 -0.20226 

a.,15944 5.58176 


itwnxxi 






23 

0.85355 

0. 25944 

-0.22270 

0.13686 


L 24 

0.98296 

0-25944 

0-75326 

0.00914 


1 25 

^ £ 

0.01 704 

e\ A £ £ £ C 

0. 30875 

r\ ^ o ^ e 

-0.54272 

f- -» o ^ ^ 

0.52548 

4 A ^ t 

... 








0.37059 0.30875 4.12287 

A ^ n M M ^ ^ M 


0.30875 -0.14901 


0.98979 




0.13835 


31 

0.01 7C4 

0. 37411 

0.55533 

0.50901 

32 


■ 0.3741 1 1 .1 7755 

1.11257 

33 

0.37059 

0.37411 

1.08933 

0.99236 




0.85355 0.37411 0.22314 0.13237 




0.01704 0.49688 0.63958 0.46737 

13 1^ 


0.37059 0.49688 1.04C20 0.98344 




0.85355 0.49688 0.15053 0.12542 




iiPVfiiiir*! 



0.01704 0.66458 0.54141 

n ^ L ALc. n AA/.K a r q a 7 


0.37059 0.66458 0.95878 


0,85355 0.66458 0.19068 


0.01704 0.23229 0.40050 


IIMHIKMII 


0.37828 


0.92505 


0.17927 


0.27428 


0.37059 0.83229 0.81743 0.79535 










1 


f 


53 

0.85355 0.83229 

0.24280 0.23663 





54 

0.98296 0.83229 

0.05058 0.04868 





55 

0.01704 0.95506 

0.24694 0.15589 





56 

0.14645 0.95506 

0.45343 0.42816 





57 

0.37059 0.95506 

0.51478 0.50533 




, 

58 

0.62941 0.95506 

0.39531 0.39131 





59 

0.85355 0.95506 

0.21155 0.20976 





60 

0.98296 0.95506 

0.05405 0.05351 





Y/SP 

CL CM 


CT CDI CLW 

CMW 

COW 



0.C4743 

0.70071 0.58443 

0. 

0.06288 0.64689 

0.53890 

0.05870 



0. 14229 

0.71599 0.46915 

0. 

0.03353 0.63567 

0.41331 

0.03247 



0.21014 

2.34876 1.29871 

0- 

0.16684 0.64609 

0.33297 

0.04727 



0, 25944 

2,41687 1.04057 

0. 

0.12010 0.65168 

0.25603 

0.03664 



0,30875 

2.41610 0,68023 

0. 

^ 0.10127 0.65297 

0.17240 

0-02297 



0. 37411 

0.73473 0.05386 

0. 

0.02235 0.64850 

0.06084 

0.01286 



0.49688 

0.68753 -0.15679 

0. 

0.00496 0.63204 

-0.14489 

0.00759 



0. 66458 

0.64082 -0.43835 

0. 

-0,00905 0.60313 

-0.41 597 

-0.00433 



0. 83229 

0.56337 -0.64422 

0. 

-0.01178 0.53726 

-0.61 765 

-0.00805 



0. 95506 

0. 37364 -0-551 37 

0. 

-0.01011 0.35902 

-0.53237 

-0.00783 


, 

JET - OFF SPAN LOADING 


JET - ON SPAN LOADING 





0 .80084 



0.86746 





0.75122 



0.84614 





0.73756 



2.68128 





0.72490 



2.68843 





0.70726 



2.61 700 





0.67731 



0.76737 





0.61414 



0.66806 





0.52611 



0.55899 





0.41 526 



0.43545 





0-25138 



0.26162 




THE 

LIFT COEFFICIENT = 0.S8280 





TOTAL INDUCED DRAG COEFFICIENT = 

0.02932 




1 THE 

INDUCED 

DRAG PARAMETER = 

0. 

0 3 762 




TOTAL PITCHING MOMENT COEFFICIENT 

= 0.06624 




: THE 

COANDA LIFT COEFFICIENT/ 

CLR= 

0.291 03 




i THE 


are 

-1,21880 




I THE 


/ CMR = -0.09561 




THE 

LIFT COEFFICIENT FOR THE 

WING 

ALONE = 0.57709 




' THE 

INDUCED 

DRAG COEFFICIENT 

FOR 

THE WING ALONE = 0.01552 



! THE 

PITCHING 

MOMENT COEFFICIENT FOR THE WING ALONE = 

0.04943 




ITHE INDUCED DRAG PARAMETER FOR THE WING ALONE = 0.04659 


• 1 «] 


1TH ITERATION OF 1TH INTERMEDIATE CYCLES 


INDUCED DRAG COEFFICIENT/ COII= 
LIFT COEFFICIENT/ CLl 1= 


pitching moment COEFF IC IENT/CMI I= 


0.04594 

0.94622 


0.03800 


LIFT COEFFICIENT/ 
PITCHING MOMENT COl 


CLI 1 = 



INDUCED DRAG COEFFICIENT, 


0.94624 
0-03800 


N OF 2TH INTERMEDIATE CYCLES 


0.05243 


PITCHING MOMENT C OE F F I C I EN T /C MI I = 


0.00975 


ITERATION OF 2TH INTERMEDIATE CYCLES 

















1 — — 

1 LIFT COEFFICIENT/ CLII= 

S PITCHING MOMENT C 0 E F F I C I EN T /C M 1 1 = 


1 .00968 
0-00975 


} DELTAS 0.100 1 TH 

ITERATION 

OF 

3TH INTERMEDIATE 

cycles 




0.05924 

1.07310 


|‘ PITCHING MOMENT COEFFICIENT 

/CMi r= 

-0.01850 


• DELTAS 0.400 2TH 

INDUCED DRAG COEFFICIENT/ 

ITERATION 

CJLLJs 

OF 

3TH INTERMEDIATE 
0-05167 

CYCLES 

1 LIFT COEFFICIENT/ CLII= 

1 PITCHING MOMENT C 0 E F F I C I EN T /C M I I- 


1.07311 

■0.01850 


j DELTAS 0.100 1TH 

ITERATION 

OF 

4TH INTERMEDIATE 

CYCLES 

1 INDUCED DRAG COEFFICIENT/ 
j LIFT COEFFICIENT/ 

coils 

CLI Is 


0.06599 

1.13654 


1* PITCHING MOMENT COEFFICIENT 

/CMI 1 = 

- 

0.04675 


1 DELTAS 0.400 2TH 

1 INDUCED DRAG COEFFICIENT/ 

ITERATION 

CDIIs 

OF 

4TH INTERMEDIATE 
0.05725 

CYCLES 

1 LIFT COEFFICIENT/ 

S PITCHING MOMENT COEFFICIENT 

CLI 1 = 
/CMI Is 


1 .13655 
0.04675 


1 DELTAS 0.100 1 TH 

ITERATION 

OF 

5TH INTERMEDIATE 

CYCLES- 

1 INDUCED DRAG COEFFICIENT/ 

1 LIFT CQEFF IC lENT/ 

C 01 Is 
CLI Is 


0.07251 
1 . 1 9998 



'pitching moment COEFFIC IENT/CMI I= -0.07500 


0.400 

PD DRAG COFFF 


LIFT COEFFICIENT/ CLII* 


2TH ITERATION OF 5TH INTERMEDIATE CYCLES 
a n. 06265 


CLII* 1.19999 


N T 

I 

_FJLN_A 

mm 

DELTAS 0.400 


INDUCED DRAG COEFFICIENT/ CDII= 


0.0541 7 


PITCHING MOMENT C 0 E F F IC I E N T /C M 1 1 

s -0.07500 


RDINATESs 0.00075 




j INDUCED DRAG COEFFICIENT/ CDII= 

CLII- 


PITCHING MOMENT C 0 E F F I C I E N T / C M I I = 


INDUCED DRAG COEFFICIENT/ CDII= 
iTPT rnpppTriPNT. fi^ 


PITCHING MOMENT C OE F F IC I EN T /C M U ^ 


0.04681 
1 .20000 


-0.07500 


CYCLE/ DELTAS 


0.04030 
1 - 20000 


-0.07500 


0.400 


Iiltl 


0.400 


INDUCED DRAG COEFFICIENT/ CDII= 


0.03450 


I 











PITCHING MOMENT C 0 E F F IC I EN T /C MI 1= -0.07500 


the root mean square of camber ORDINATESg 0.00053 


1 — 
the 

6TH ITERATION IN THE 

F INAL 

CYCLE# 

DELTAS 0.400 


.INDUCED DRAG COEFFICIENT# 

mig 


0.02454 

* 

1 LIFT 

COEFFICIENT# 

BOB 


1 . 20000 


'PITCHING MOMENT COEFFICIENT 

#CMI 1 = 


-0.07500 


THE 

ROOT mean square OF CAMBER ORDINATES 

= 0.00050 

• 

1 

1 

i THE 

7TH ITERATION IN THE 

FINAL 

CYCLE# 

DELTAS 0.400 


INDUCED DRAG COEFFICIENT# 

CDII = 


0.02018 


ULIFT 

COEFFICIENT# 

CLI I- 


1.20000 



PITCHING MOMENT COEFFICIENT^CMII= -0.07500 


THE ROOT MEAN SQUARE OF CAMBER OROINATES= 0.00046 


THE 8TH ITERATION I N THE FINAL CYCLE^ DELTA- 0.400 

INDUCED DRAG COEFFICIENT^ CDII= 0.01615 

LIFT COEFFICIENT^ CLI 1= 1 . 20000 

PITCHING MOMENT COE F F IC lENT ^CMI 1= . -0.07500 

THE ROOT MEAN SQUARE OF CAMBER ORDINATES= 0.00044 

THE 9TH ITERATION IN THE FINAL CYCLE/ DELTAS 0. 400 

INDUCED DRAG COEFFICIENT# CDII= 0.01237 

LIFT COEFFICIENT# CLI 1= 1 .20000 

PITCHING MOMENT C OE F F I C I EN T #C M I 1= -0. 07500 

THE TWIST DISTRIBUTION IN THE SPANWISE DIRECTION , 

YLE< 1)= 0.04743 ALPAOI 1)= 8.58050 

YLE< 2)g 0.1 4229 ALPA0( 2)= 18.2691 6 

YLE( 3)= 0.21014 ALPAO( 3)= -13.35170 

YLE( 4)s ' 0.25944 ALPAOC 4)= 4.09779 

YLEC 5)- 0.30875 ALPAOC 5)* -10.28359 


j YLE ( 6 ) = 

0.37411 

ALPAOC 6)= 

11.19529 

j YLEC 7)= 

0.49688 

ALPAOC 7)= 

3.8601 4 

YLEC 8)s 

0-66458 

ALPAOC 8)s 

3.46656 

, YLEC 9)= 

0.83229 

ALPAOC 9)= 

1.20347 


0. 95506 

ALPAOC 1 0)= 

-1.35737 

' CAMBER ORDINATES IN THE 

JET ON CASE 



0.00770 

0. 05095 

0.08393 

0.06981 

0.02866 

0.00332 

0.01452 

0. 09007 

0.1 2577 

0.08447 

0.02843 

0.00302 

0.00134 

0.02399 

0.06063 

0.071 31 

0.04191 

0.00505 

0.00597 

G. 05382 

0.07719 

0.04690 

0.021 29 

0.00218 

0-00105 

0. 02396 

0.04997 

0.05066 

0.03258 

0.00401 

0.01422 

G. 08461 

0.1 1 489 

0.081 81 

0.03076 

0.00337 

0.01141 

0.07264 

0.10950 

0.08672 

0.03636 

0.00423 

0.01090 

0. 071 87 

0.11 509 

0.09656 

0.04255 

0.00513 

0.00882 

0.06103 

0.10401 

0-09259 

0.04315 

0.00534 

0.00572 

0.04239 

0.07835 

0.07599 

0.03840 

0.00489 


; THE ROOT MFAN SQUARE OF CAMBER ORDINATES^ 0.00041 







XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


9X 



ALPHA = 

0. 

DEGREES 




XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 




X M 

YV 

CP 

CPU 


1 

1 

0.01 704 

0.C4743 

0.47346 

0.27324 



? 



mmthMM 

0.69602 



3 

0.37059 

0.04743 

1.31955 

0.95547 



4 

0-62941 

0,04743 

1.10117 

0-76591 



5 

0.85355 

0.04743 

0.53810 

0.31 755 



6 

0-98296 


0.1 6716 

0-08041 



7 

0.01704 

0. 14229 

0.95024 

0.44343 



8 

0-14645 

0. 14229 

1 -72062 

0.91657 



9 

0,37059 

0. 14229 

1.60856 

0.93288 




0.62941 

0. 14229 

0.93595 

0.61 393 



11 

0.85355 

0.14229 

0.31193 

0.21871 



12 


_.0. 14229 

0.1 0460 

0-06350 



1 3 

0.01 704 

0.21014 

>1.85986 

0.52313 



. 14 

0-14645 


2-1 9873 

1 .08728 



1 5 

0.37059 

0. 21 014 

4.36602 

0.97367 



lit 

0-62941 

0.21014 

3.36949 

0-53386 



1 7 

0,85355 

0.21014 

2.39451 

0.14443 



— ia 


0.21014 

Knitnijiai 

0.02075 



19 

0.01 704 

0.25944 

-0.75528 

0.53314 



■ _ 20 

0-14645 

0.25944 

4.74276 

1.12298 



21 

0.37059 

0. 25944 

4.65973 

0.98545 



- 22 


0.25944 

1 .41030 

0.52403 



23 

0.35355 

0.25944 

1 .73256 

0.13686 



24 


0-25944 

.0.95776 

0.00914 



25 

0.01 704 

0. 30875 

-1 .59881 

0.52548 



26 

0.14645 


2.74823 

1.12427 



27 

0.37059 

0. 30875 

3.97128 

0.98979 



28 

0.62941 


2.64443 

0.52630 



29 

0.85355 

0. 30875 

2.67985 

0.13835 










31 

0.01 704 

0.3741 1 

0.70660 

0.50901 



32 

0.1 4645 

0. 3741 1 

1 .61202 

1.11257 



33 


0.3741 1 

1.47902 

0.99236 



X4 

HRIKThH 

n . 3741 1 


0-52534 



35 

0.85355 

0. 3741 1 

0.48928 

0.13237 



^6 







37 

0.01 704 

0. 49688 

0.74190 

0.46737 




0.14645 


1 .40284 

1-06074 



39 

0.37G59 

0.49688 

1 .41070 

0.98344 



4n 

0,62941 



0-52471 



41 

0.85355 

0. 49688 

0,50286 

0.12542 




0.98296 






43 

0.01 704 

0.66458 

0.67556 

0.37828 



LL 

0- 1 t645 

_n, 66458 

1 -29936 

0-90573 



45 

0.37059 

0.66458 

1 .40971 

0,92505 



46 

0.62941 

n , 66458 

1 -09592 

0-55977 



47 

0.85355 

0.66458 

0.57263 

0,17927 



48 

0.982^6 


n ,1 R31 1 




49 

0.01 704 

0.83229 

0.52237 

0.27428 

161 



0.14645 

n . 83229 

1 ,04290 

0- 7011 7 



51 

0.37059 

0. 83229 

1 .22420 

0.79535 



12 


— (U£3??9 









X i 



53 0.85355 0.83229 

54 0.98296 0.83229 

0.57032 0,23663 

0.18453 0.04868 




55 0.01704 0.95506 

56 0.14645 0.95506 

0.32196 0.15589 

0.62419 0.42816 




57 0.37059 0.95506 

58 C. 62941 0.95506 

0.74849 0.50533 

0.64621 0.39131 




59 0.85355 0.95506 

60 0.98296 0.95506 

0.39385 0.20976 

0.12604 0.05351 




Y/SP CL CM 

CT CDI CLW 

CMW 

COW 


0.04743 0.94091 0.77565 0. 

0.14229 1.09119 0.73811 0. 

0.12627 0.64689 

0.25540 0.63567 

0.53890 
0.41 331 

0.05870 

0.03247 


0.21014 2.74845 0.88267 0. 

0.25944 2.74741 0.90059 0. 

-0.67459 0.64609 

0.11828 0.65168 

0.33297 

0.25603 

0.04727 

0.03664 


0.30875 2.64799 0.22817 0. 

0.37411 1.08114 0.04516 0. 

-0.48506 0.65297 

0.15507 0.64850 

0.T7240 

0.06084 

0.02297 

0.01286 


0.49688 1.02899 -0.29282 0. 

0.66458 1.03835 -0.75872 0. 

0.01429 0.63204 

0.01472 0.60313 

-0. 14489 
-0.41597 

0.00759 

-0.00433 


0.83229 0.91279-1.07154 0. 

0.95506 0-57151 -0.85388 0. 

-0.01101 0.53726 

-0.02845 0.35902 

-0.61765 

-0.53237 

-0.00805 

-0.00783 


JET - OFF SPAN LOADING 
0.80084 

JET - ON SPAN LOADING 
1 .16483 




0.75122 

0.73756 

1.28954 
3.1 3756 




0.72490 

0.70726 

3.05612 

2.86817 




0.67731 

0.61414 

1.12917 

0.99984 




0.52611 

0-41526 

0.90575 

0.70553 




0.25138 

THE LIFT COEFFICIENT * 1.20000 

C. 40016 




TOTAL INDUCED DRAG COEFFICIENT = 0.01237 

THE INDUCED DRAG PARAMETER = 0.00859 

TOTAL PITCHING MOMENT COEFFICIENT 
THE COANDA LIFT C 0 E F F I C I E N T ir CLR = 

= -0.07500 

0.29103 




THE COANDA DRAG COEFFICIENT^ COR= 
THE COANDA MOMENT COEFFICIENT^ CMR 

-1.21880 
= -0.09561 




THE LIFT coefficient FOR THE WING ALONE = 0.57709 

THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE = 0.01552 

THE PITCHING MOMENT TCEFFICIENT FOR THE WING ALONE = -0 

THE INDUCED DRAG PARAMETER FOR THE WING ALONE = 0.04659 

. 04943 
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